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

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