program ColorfulText;
uses
Crt;

procedure DisplayTextInColor(text: string; color: byte);
begin
TextColor(color);
writeln(text);
end;

begin
// Инициализация экрана
ClrScr;

// Установка позиции текста на экране
GotoXY(10, 5);

// Вывод текста разными цветами
DisplayTextInColor('1 Почитай Бога своего.', Red);
DisplayTextInColor('2 Стремись к Богу своему.', Red);
DisplayTextInColor('3 Принеси дары Богу своему.', Red);

// Ожидание нажатия клавиши перед завершением программы
readln;
end https://social.076.moe/url/2508469