1) A^-B 2) (XvY)^Z
информатика 8 класс ​

program yrav;

var

  a,b,c,d,x1,x2,x:real;

begin

  writeln('Введите коэффиценты квадратного уравнения');

  readln(a,b,c);

   d:=b*b-4*a*c;

   if d<0 then writeln('корней нет');

   if (d>0) and (a<>0)and (b<>0)and (c<>0) then

   begin

     x1:=(-b+sqrt(d))/(2*a);

     x2:=(-b-sqrt(d))/(2*a);

     writeln('X1= ',x1:6:3,'   X2= ',x2:6:3);

   end;

  if  (a=0)and(b<>0)and(c<>0) then

  begin

    x=-c/b;

    writeln('Один корень уравнения Х= ',x:6:3);

  end;

  if (b=0)and(c<0) and(a<>0) then

  begin

   x1=sqrt(-c/a); x2=-sqrt(-c/a);

   writeln('X1= ',x1:6:3,'   X2= ' ,x2:6:3);

  end

  else writeln('Корней нет!');

  if (a<>0) and(b<>0)and(c=0) then

  begin

   x1:=0;

   x2:=-b/a;

   writeln('X1= ', x1:6:3,'     X2= ',x2:6:3);

  end;

end.

Вариант №1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  //Для теста заполним массив сл. числами
  var a := arrrandom(50); a.Println;
  println('Максимальное значение',a.max);
end.

Тестовое решение:
25 78 95 85 97 57 77 49 58 26 36 57 74 24 19 94 66 33 32 43 32 7 64 24 11 2 60 45 6 40 31 19 40 53 80 67 18 26 39 23 53 63 26 18 84 11 11 72 19 79
Максимальное значение 97

Вариант №2 (с циклом for и заполнением массива с клавиатуры)

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  n = 50;

var
  a: array[1..n]of integer;
  i, max: integer;

begin
  max := -MaxInt;
  for i := 1 to n do
  begin
    writeln('Введите ', i, ' число ');readln(a[i]);
    if a[i] > max then max := a[i];
  end;
  writeln('Максимальное ', max);
end.