Question

Помогите, 7 вариант пж!

Answer 1

для pascal abc
var x,y,i:integer;
begin
readln(x,y);
if x>0 then
x:=x*x
else
x:=x*x*x*x;
if y>0 then
y:=y*y
else
y:=y*y*y*y;
if i>0 then
i:=i*i
else
i:=i*i*i*i;
writeln(x,' ',y,' ',i);
end.