Написать программу и составить блок-схему для функции, заданной в виде графика

{...}
readln(x);
if x <0 then {первая прямая y=(-1/2)*x}
 begin
   y := (-1/2)*x
 end
else
 if (x>=0) and (x<=2) then {первая парабола}
  begin
    y := sqrt (sqr(R)-sqr(x))+2
  end
 else
   if (x>2) and (x<=4) then {вторая парабола}
    begin
      y := sqrt (sqr(R)-sqr(x-2))
    end 
   else {вторая прямая}
     begin
       y := -x
     end

var x, r: real;
begin
  write('x = '); readln(x);
  repeat
    write('R = '); readln(r);
    if r <= 0 then writeln('Invalid radius, reenter.')
  until r > 0;
  if (x < -4) or (x > r + r + 1)
    then writeln('y is undefined') {за пределами графика}
    else begin
      write('y = ');
      if x < 0
        then writeln(-x / 2:0:8) {первая прямая}
        else if x < r
          then write(r - sqrt(r * r - x * x):0:8) {первый сектор}
          else if x < r + r
            then writeln(sqrt(r * r - sqr(x - r)):0:8) {второй сектор}
            else writeln(r + r - x:0:8) {вторая прямая}
    end;
  readln
end.