Даны два числа x и у, большее из них возвести в квадрат

Question

Даны два числа x и у, большее из них возвести в квадрат

Answer 1

Var
a,b,max:Integer;
Read(a,b);
if (a>b) then max:=a*a
 else if (b>a) then max:=b*b;
Writeln(max);
end.