Написать программу для решение задания Егэ-14(Желательно на паскаль) Пример:
4^2015+2^6048-2^2017-150

program P1;

var a,b: real;

begin

write('b = '); readln(b);

if 32 - b < 0 then writeln('error') else begin

a := sqrt(32 - b);

writeln(a:0:4);

end;

end.

Задача 2:

program P2;

var a,b,result: real;

begin

write('a = '); readln(a);

write('b = '); readln(b);

if a > b then result := a - b else result := b - a;

writeln(result:0:4);

end.

Объяснение:

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}

я пробовала у меня вышло 15 но возможны и другие варианты