Программа рисования «пульсирующей» окружности — Pascal(Паскаль)

USES Crt, Graph;

VAR
  Gd, Gm: integer;

BEGIN
  Gd := Detect;
  InitGraph(Gd, Gm, 'd:\prog\bp\bgi'); { здесь указывается путь к папке \bgi }
  if GraphResult <> grOk then
    Halt(1);
  repeat
    setcolor(random(10));
    Circle(300, 200, 50);
    delay(50)
  until keypressed;
  CloseGraph;

END.