Нужно написать программу, которая по введенному значению аргумента вычисляет значение функции

var x,y,r:real;
begin
 writeln('x=?');
 readln(x);
 repeat
  writeln('R=?, r>0');
  readln(r);
 until r>0;
 if x<-r-1
  then y:=-x
  else
   if x<-1
    then y:=sqrt(sqr(r)-sqr(x+1))
    else 
     if x<1 
      then y:=r
      else
       if x<2
        then y:=(-1-r)*x+(2*r+1)
        else y:=-1;
  writeln('y=',y:0:3);
  readln
end.

program ideone;
var
    x : Double;
begin
    WriteLn('Input x='); ReadLn(x); WriteLn; Write('y=');
    if (x <= -2) then
        Write(Abs(x)-2)
    else
        if ((x > -2) and (x <= -1)) then
            Write(-sin(x * PI/2):1:3) //тут я не уверен. совсем математику забыл >_<
        else
            if ((x > -1) and (x <= 1)) then
                Write(1)
            else
                if ((x > 1) and (x <= 2)) then
                    Write(-2 * x +3)
                else
                    Write(-1);
end.

var x,y,r:real;
begin
  Write('Введите x: '); ReadLn(x);
  if      x<-2 then y:=-x
  else if x<-1 then y:=sqrt(1-sqr(x+1))
  else if x<1  then y:=1
  else if x<2  then y:=-2*x+3
  else              y:=-1;
  WriteLn('y=',y:0:3);
  Write('Нажмите Enter...'); ReadLn;
end.