Question

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

Answer 1

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