Найдите квадрат наибольшего из чисел a и b . Введите результат сравнения на экран . Записать программу на языке паскаль

Program n1;
var a,b: real;
begin
write(введите а и b: );
readln(a,b);
if alt;b then writeln(наибольшее b; квадрат: ,b*b);
if agt;b then writeln(наибольшее a; квадрат: ,a*a);
end.