Вычислить значение функции, заданной в виде графика

var x,y:real;
begin
 writeln('x=?');
 readln(x);
 if x<-5
  then y:=-3
  else
   if x<-3
    then y:=1.5*x+4.5
    else
     if x<3
      then y:=sqrt(9-sqr(x))
      else
       if x<8
        then y:=3/5*x-9/5
        else y:=3;
 writeln('y=',y:0:3);
 readln
end.

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

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