Составьте программу вычисления значения функции

Question

Составьте программу вычисления значения функции

---

Answer 1

// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
var
x: int64;
BeginReadln(x); 
if (x <= -2)then<br>begin
 Writeln('y = ', -1);
 halt; 
end; 
if (-2 < x)and ( x <= 1) then <br>begin
 Writeln('y = ', -1*x*x + 3);
 halt; 
end; 
Writeln('y = ', x + 1); 
end.