Если число положительное,то его возвести в квадрат, иначе возвести в куб.

1

Ответы и объяснения

2013-05-15T07:40:39+00:00

begin

writeln('vvedite n');

readln(n);

if n>0 then n:=sqr(n);

if n<0 then n:=sqr(n)*n;

writeln(n);

end.