Нужно расписать в паскале.

Question

Нужно расписать в паскале.

---

Answer 1

program vassya;

var x,y:real;

begin

read(x);

if x > 3 then

  y:=x*x*x+5 else

    if x>=-3 then

      y:=x*x-2x else

        y:=x+1;

write(y);

end