Program Star; 
  Uses Crt, Graph; 
       {подключение к программе библиотек Crt и Graph} 
  Const { массив координат вершин многоугольника (звезды) } 
    TopsStar: Array[1..18] of Integer = (300, 125, 325, 225, 425, 250, 
          325, 275, 300, 375, 275, 275, 180, 250, 275, 225, 300, 125); 
  Var 
    i, j, GrDriver, GrMode : Integer; 
BEGIN 
  GrDriver := Detect; 
  InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {установка графического режима} 
  SetTextStyle(DefaultFont, HorizDir, 2); {установка шрифта, 
                                           направления и размера символов} 
  OutTextXY(220, 60, 'S T A R '); 
  SetTextStyle(DefaultFont, VertDir, 2); 
  OutTextXY(140, 150, 'S T A R '); 
  SetTextStyle(DefaultFont, VertDir, 2); 
  OutTextXY(500, 150, 'S T A R '); 
  i:=0; 
  Repeat 
    j:=i mod 12; { j - остаток от деления i на 12 } 
    SetFillStyle(j, Random(13)); { штриховка и фон } 
    FillPoly(9, TopsStar); {рисование и штриховка звезды} 
    Inc(i); {увеличение i на 1} 
    Delay(500) 
  until KeyPressed; {завершение цикла нажатием любой клавиши} 
  CloseGraph
END.