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

Var a, b : integer;
begin
readln(a,b);
if a > b then written(a*a)
else writeln(b*b);
readln()
end.
––––––––––––––––––––––
Если что-то не понятно - пиши