program spinning_disk;

uses graph;

const
  cx = 320; { координаты центра диска }
  cy = 240;
  r = 100; { радиус диска }
  n = 5; { количество спиц }
  dt = 50; { время задержки между кадрами }

var
  i: Integer;
  angle: Real;

begin
  InitGraph; { инициализация графической системы }
  ClearDevice; { очистка экрана }
  angle := 0; { начальный угол }
  repeat
    ClearDevice;
    for i := 0 to n - 1 do
    begin
      Line(cx, cy, cx + Round(r * Cos(angle + i * 2 * Pi / n)), cy + Round(r * Sin(angle + i * 2 * Pi / n)));
      { рисуем спицы диска }
    end;
    angle := angle + 0.1; { изменяем угол }
    if angle >= 2 * Pi then
      angle := angle - 2 * Pi; { ограничиваем угол }
    Delay(dt); { задержка между кадрами }
  until KeyPressed; { выходим, когда нажата клавиша }
  CloseGraph; { закрываем графическую систему }
end.