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

var x,y:integer;beginwriteln('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 47^2 = 494^3 = 6449