Для функций, заданных графически, определить значение y при заданном значении x: (программа Паскаль)

Program Func;
uses crt;
var x,y:real;
begin
clrscr;
write('Введите x='); readln(x);
if x<-1 then y:=0
else
if (x>=-1)and(x<=0) then y:=x+1 else y:=1;
writeln('Значение y=',y:7:2);
readln;
end.