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

Question

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

---

Answer 1

на Паскале

var

y,x: real;

begin

readln (x);

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

else

begin

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

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

end;

writeln(y);

end.