СРОЧНО!!Напишите программу. Паскаль.Вычислите значение функции по введенному значению

var

 x, y: integer;

begin

 readln(x);

 if x gt; 0 then y := x*x - 5*x

 else if x lt; 0 then y := -3*x*x*x

 else y := x + 4;

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

end.

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