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

Question

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

Answer 1

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