найдите квадрат наибольшего из чисел a b введите результат сравнения на экран pascal abc

program project;var  a, b, sq: real;begin  Write('Введите 1-ое число: ');   Readln(a);  Write('Введите 2-ое число: ') ;   Readln(b);  if a>b then  begin     sq:=sqr(a);     Writeln('Максимальное число: ',a:0:4)  end  else  begin      sq:=sqr(b);     Writeln('Максимальное число: ',b:0:4);  end;  Writeln('Квадрат максимального числа: ',sq:0:4);  Readln;end.