Задание на условный оператор (написать выражение по графику)

[passresx]

Условный оператор:
Помогите составить вот поэтому графику http://hkar.ru/nqvR

[Smitt&Wesson]

Жаль, что форум не позволяет писать сообщения меньше 10 букв.

if

[passresx]

Сообщение от Smitt&Wesson

Жаль, что форум не позволяет писать сообщения меньше 10 букв.

if

это я знаю что if мне бы по графику
составить вот по этому http://hkar.ru/nqvR

[Serge_Bliznykov]

var x,y : real;
begin
  WriteLn('Введите x: ');
  Readln(x);
  if x<-1 then y := 0
  else
     if x<0 then y:= x + 1
     else y:= 1;
  WriteLn('y=',y:1:2); 
end.

[passresx]

Спасибо! Очень помог