Пример. Вывод на экран разноцветных точек в случайных местах.

Program Plot_Stars;
Uses
 Crt,Graph;
Var
 Er,GDr,Gmode : Integer;
 X,Y : Integer;
 Color :Integer;
Begin
 {Параметры графического режима}
 Gdr := Vga;
 Gmode := VgaLo;
 InitGraph(Gdr,GMode,’’);
 Er := GraphResult;
 If Er = GrOk then
  Begin
   Randomize; {Инициализация генератора случайных чисел}
   SetBkColor(Black);
   ClearDevice;
   Repeat
     Color := Random(GetMaxColor)+1;
     X := Random(GetMaxX);
     Y := Random(GetMaxY);
     PutPixel(x,y, Color);
     Delay(10);
   Until Keypressed;
   CloseGraph;
  End
 Else
   begin
     Writeln(’Ошибка графики: ’,Er,’. ’,GraphErrorMsg(Er));
     Writeln(’ Нажмите клавишу...’);
     Repeat Until KeyPressed;
   end
End.