begin
writeln('vvedite n');
readln(n);
if n>0 then n:=sqr(n);
if n<0 then n:=sqr(n)*n;
writeln(n);
end.
Ответ:
*s*.???f
____________________
1) Найдем время передачи: