{* Радуга *}

Unit RADUG;
Interface
Implementation
Begin
 writeln('Программа в графическом режиме рисует радугу');
End.

Program Raduga;

Uses radug.pas; {* Эту строку можно удалить *}
Uses Graph; {* Подключение модулей *}
Var {* Объявление переменных *}
  D : Integer;
  M : Integer;
  y : Integer;
  i : Integer;
Begin
  D := Detect;
  InitGraph(D, M, '');
  If GraphResult  grOk Then
    WriteLn(GraphErrorMsg(GraphResult))
  Else Begin
    y := 200;
  For i := 1 To 30 Do {* Переменная i увеличивается с 1 до 30 *}
  Begin
    If i5)And(i10)And(i20)And(i25 Then
      SetColor(13);
    Ellipse(325, y, 10, 170, 240, 150); {Эллипеные дуги}
    inc(y); {тоже что и y := y+1}
  End;
  Readln; {* Приостановка программы. Ожидание Enter *}
  CloseGraph;
End;

  End.....