Даны 2 числа х и у на экране напечатать меньшее из х2 и у3. написать программу

Var x,y:integer;
begin
writeln('x, y:');
readln(x,y);
writeln(x,'^2 = ',x*x);
writeln(y,'^3 = ',y*y*y);
if x*x<y*y*y then writeln(x*x) else writeln(y*y*y);
end.

Пример:
x, y:
7 4
7^2 = 49
4^3 = 64
49