Ввести 2 числа с клавиатуры если первое число больше второго то вывести на экран квадрат первого иначе квадрат второго

Program A;
var x,y:integer;
begin  writeln('Введите два числа:');  readln(x);  readln(y);    if x > y then    writeln(x * x)   else    writeln(y*y);end.