Помогите выполнить пожалуйста. заранее спасибо.

Question

Помогите выполнить пожалуйста. заранее спасибо.

---

Answer 1

Var x,y:integer;
begin
read (x);
if x<0 then y:=sqr(x);<br>if x>=0 then y:=x+2;
writeln(y);
end.