Question

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

Answer 1

begin

writeln('vvedite n');

readln(n);

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

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

writeln(n);

end.