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