Это информатика?
высь, гусь, рысь, лось
Пара друзей
Банка чая
Лесные ягоды
Шоколадная конфета
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