Задание: Создайте программу.
тема: Разветвлённый цикл.

ребята, напишите пожалуйста программу ко 2-ой задаче. даю 37 баллов

Вот программа:var x,y:real;begin  write('Введите значение аргумента x=');  readln(x);  if x<-1 then y:=0          else if x<0 then y:=x+1                      else y:=1;  writeln('При x=',x,' y=',y);end.