Даны 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*xlt;y*y*y then writeln(x*x) else writeln(y*y*y);
end.

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