В данном разделе начнём с простейшей задачи. Я продемонстрирую как просто можно раскрасить вывод данных при решении задач. Это ведь более информативно, чем просто серые буквы на черном фоне. В паскале существует функция TextColor(i); где i, число от 0 до 15 задаёт цвет выводимого текста. Что можно было использовать эту функцию в задачах в секции uses следует подключить модуль crt. И так цветов 16, 0 — это чёрный, 15 — белый. Ниже задача иллюстрирует всю гамму.

program zwet;

uses crt;

var

i : integer;

begin

for i := 0 to 15 do

begin

textcolor(7);

write('Номер = ', i);

textcolor(i);

writeln(' Имеет цвет этой строки.');

end;

readln;

end.

Как видно достаточно перед каждым выводом данных установить свой цвет текста. Ничего сложного в этом нет. (Скачать пример. )