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

var
x: int64;
BeginReadln(x); 
if (x <= -2)then
begin
 Writeln('y = ', -1);
 halt; 
end; 
if (-2 < x)and ( x <= 1) then 
begin
 Writeln('y = ', -1*x*x + 3);
 halt; 
end; 
Writeln('y = ', x + 1); 
end.