Дано два числа заменить и вывести на экран результат: большее число заменить его квадратом а меньшее разностью большего и меньшего числа

Напишу на псевдокоде, потому что не указали язык программирования

ввод числа X
ввод числа Y
ЕСЛИ X>Y ТО
 Y=X-Y
 X=X*X
ИНАЧЕ
 X=Y-X
 Y=Y*Y
Вывод X,Y

В паскале выглядит так:
var a,b:integer;
begin readln(a,b);
if aelse begin c:=a*a; d:=a-b; end;
writeln(c,d);
end.