Question

Найти квадрат наибольшего из двух чисел а и Б

Answer 1

program asd;

var

a,b : real;

begin

read(a,b);

if a > b then

begin

a := a * a;

writeln(a);

end;

if b > a then

begin

b := b * b;

writeln(b);

end

else

writeln('Числа равны');

end.