Question

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

Answer 1

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