Даны три целых числа.

Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять)

Program bedin42;

Uses crt;

Var x:integer;

begin

ClrScr;

WriteLn (‘Введите x’);

ReadLn (x);

if (x>0) then

x:=sqr(x)

else

if (x<0) then

x:=x*x*x;

WriteLn (‘x=’,x);

ReadLn

end.

Программа не совсем соответствует условию, но она прекрасно работает.