Найдите квадрат наибольшего из чисел 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.