Решить в программе паскаль АВС

Question

Решить в программе паскаль АВС

---

Answer 1

Var x:integer;
begin
readln(x);
if x>=0 then writeln('y=',x+2) else writeln('y=',sqr(x)); 
end.