Помогите решить срочно

Question

Помогите решить срочно

---

Answer 1

Var
x,y:integer;
begin
readln (x);
if x<-10 then y:=x+50<br>else
if (x > -10) and (x<0) then y:=2*x<br>else
y:=3*(x*x)+1;
writeln (y);
end.