{центр коружности и радиус}
x0:=320;
y0:=240;
R:=50;
a:=0;{начальный угол поворота}
{расчет}
repeat
      a:=a+i;             {увеличиваем угол на i}
      x:=x0+r*cos(a);     {считаем коорд. точки на окружности}
      y:=y0+r*sin(a);
      color(white);       {рисуем линию}
      line(x0,y0,x,y);
      delay(500);
      color(black);       {стираем линию}
      line(x0,y0,x,y);
      i:=i+1;             {меняем угол поворота}
      if i=360 then i:=0; {иногда без этой проверки у меня не работало}
until keypressed;