Passcal ABC. нарисовать круг, который периодически будет менять цвета.

[Москаль]

Нужно нарисовать круг, который периодически будет менять цвета.

[ZX Spectrum-128]

uses GraphABC;
begin
  LockDrawing;
  for var i:=1 to 500 do
  begin
    Window.Clear;
    Brush.Color := clRandom;
    Circle(200,200,100);
    Redraw;
    Sleep(5);
  end;
end.