program RedText2; {заголовок программы, имя программы - RedText2}
Uses {начало раздела подключения модулей}
CRT; {подключение модуля CRT}
Begin {начало раздела описания логики программы}
CIrScr;{очистка экрана}
TextColor(Red); {установка в качестве текущего цвета, которому соответствует Константа Red (красный). Начиная с этого места, вся информация будет выводиться красным цветом}
Write ('Красный текст');
{Вывод текстовой информации. Символы имеют красный цвет, так как красный цвет является текущим}
ReadKey; {программа приостанавливается до нажатия пользователем клавиши. При этом вся информация,
выведенная на экран, видна}
CIrScr; {очистка экрана}
End. {Конец раздела описания логики программы. Информация, которая выводилась на экран в процессе работы программы, удалена}
Вторая цветовая характеристика выводимого на экран текста – текущий цвет фона. Для изменения текущего цвета фона используется процедура TextBackGround, имеющая следующий вид:
TextBackGround(<Hoмep цвета>) ;
Для цвета фона могут использоваться первые 8 цветов из 16 доступных в текстовом режиме (см. табл.). Отметим, что цвет фона, так же как и цвет текста, является текущей характеристикой, поэтому процедура TextBackGround влияет на цвет фона только тех символов, которые выводятся после ее вызова.
В примере строка текста «Какую музыку вы любите?» выводится красным цветом на черном фоне:
