Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 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.

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.

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