ВЫЧИСЛИТЬ ЗНАЧЕНИЕ функции y в заданной точке x y= -x+1, при x<-1<br> 0, при -1<=x<0<br> x^2, при x>0
Var x: real; begin read(x); if(x < -1) then writeln(-x + 1) else if(x >= -1) and (x < 0) then writeln(0) else writeln(x * x); end.