{* Цвета *}

Unit PROGRAM_COLORS;
Interface
Implementation
Begin
 writeln('Вывод текста различного цвета.
');
End.

Program Colors;

Uses program_Colors.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  i : integer;
Begin
  clrscr; {* Очистка экрана *}
  For i := 0 To 1279 Do {* Цикл для i => [0 .. 1279] *}
  Begin
    TextAttr := i;
    Write('X');
  End;
  TextAttr := 10;
  Readln; {* Приостановка программы. Ожидание Enter *}
  clrscr; {* Очистка экрана *}
  For i := 0 To 128 Do {* Увеличиваем i от 0 до 128 с шагом 1 *}
  Begin
    TextAttr := i;
    Write(i);
  End;
  Readln; {* Ждем подтверждения пользователя *}
End.