Движение точки по полуокружности.

uses crt, GraphABC;
var x0,y0,x,y,R1,r2,u,i,n: integer;
 
begin
  write('Сколько раз? '); readln(n);
  HideCursor;                       //скрыть курсор
  SetWindowSize(700,500);           //размер окна
  r1:=250;
  r2:=20;
  lockdrawing;                      //чтобы экран не мигал при перерисовке
  x0:=350; y0:=300;                 //координаты центра дуги
for i:=1 to n do
    begin
  for u:=-90 to 90 do               //цикл
  begin
    ClearWindow;                    //очистить окно
    SetPenWidth(5);                 //толщина пера =5
    x:=x0+Round(r1*sin(Pi*u/180));  //координаты центра второго круга по х
    y:=y0-Round(r1*cos(Pi*u/180));  //координаты центра второго круга по н
    SetPenWidth(3);                 //толщина пера
    setbrushcolor(clyellow);        //цвет
    circle(x,y,r2);                 //круг
    sleep(20);                      //задержка
    Redraw;                         //перерисовка
  end;
  for u:=90 downto -90 do               //цикл
  begin
    ClearWindow;                    //очистить окно
    SetPenWidth(5);                 //толщина пера =5
    x:=x0+Round(r1*sin(Pi*u/180));  //координаты центра второго круга по х
    y:=y0-Round(r1*cos(Pi*u/180));  //координаты центра второго круга по н
    SetPenWidth(3);                 //толщина пера
    setbrushcolor(clyellow);        //цвет
    circle(x,y,r2);                 //круг
    sleep(20);                      //задержка
    Redraw;                         //перерисовка
  end;
 
  end;
end.