var

 x, y: integer;

begin

 readln(x);

 if x > 0 then y := x*x - 5*x

 else if x < 0 then y := -3*x*x*x

 else y := x + 4;

 writeln('Значение y равно : ',y);

end.

А вообще, учит паскаль, это штука интересная. Уроки Эдуарда Мецкера рекомендую