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

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