Модуль 3 задание 6

uses
Crt, Graph; {Объявление дополнительных модулей, которые будет использовать наша программа}

Var                                                              {Объявление необходимых переменных}
Gd, Gm : Integer;
Color : Word;

Begin {Начало программы}
  Gd := Detect; InitGraph(Gd, Gm, ''); {Определение и включение графического режима}
  if GraphResult <> grOk then Halt(1);

  Randomize;                                             {Перенастройка генератора случайных чисел}
repeat
  Color := Random(15);                            {Выбор случайного цвета}
  PutPixel(Random(640), Random(480), Color); { Цветное «звездное» небо}
  Delay(300);                                               {Задержка времени}
until KeyPressed;                                    {Ожидание нажатия любой клавиши}

CloseGraph;                                              {Закрытие графического режима}
end.                                                              {Закрытие программы}