begin
writeln('vvedite n');
readln(n);
if n>0 then n:=sqr(n);
if n<0 then n:=sqr(n)*n;
writeln(n);
end.
begin
writeln('vvedite n');
readln(n);
if n>0 then n:=sqr(n);
if n<0 then n:=sqr(n)*n;
writeln(n);
end.