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