Помогите пожалуйста! Составить программу на Паскале. 8 класс. Функции. Даю 30 баллов!

function f(x:real):real;begin  if x>0 then f:=x*x-1  else    if x=0 then f:=-5    else f:=x*x*x+4*x-2end; var  x:real;  begin  Read(x);  Writeln('y=',f(x))end.Пример3.18y=9.1124