Пожалуйста!!!! Решите очень срочно

на Паскале

var

y,x: real;

begin

readln (x);

if x<4 then y:= 4*x*x*x+2*x-7

else

begin

if (x>=4) and (x<11) then y:= 3*x*x+5*x-12

else y:= -x+7*x*x;

end;

writeln(y);

end.