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

uses crt;
var r,xn,xk,dx,x,y:real;
    k:integer;
begin
clrscr;
repeat
write('R>0 R=');{вводим радиус >0}
readln(r);
until r>0;
write('xn=');{вводим начало интервала}
readln(xn);
repeat
write('xk>',xn:0:1,' xk=');{вводим конец интервала больше начала}
readln(xk);
until xk>xn;
repeat
write('dx<',xk-xn:0:1,' dx=');{вводим шаг табуляции меньше длины интервала}
readln(dx);
until dx<xk-xn;
x:=xn;
k:=0;{счетчик выведеных строк}
while x<xk+dx/2 do{пока не вышли из интервала}
 begin
  if x<=-5*r/3 then y:=-x-2*r-2 {определяем y}
  else if x<=-r then y:=3*(x+r)/2
  else if x<=r then y:=sqrt(r*r-x*x)
  else if x<=8*r/3 then y:=r*(x-r)/5
  else y:=-3*x/2+5*r;
  writeln('x=',x:5:2,' y=',y:6:3);{выводим}
  k:=k+1;
  if k mod 20=0 then{после каждых 20 задержка для просмотра}
   begin
    write('Press Enter');
    readln
   end;
  x:=x+dx;{наращиваем х}
 end;
readln
end.