Составить программу на языке программирования Паскаль, которая бы в ходе работы заданного цикла периодически меняла бы цвет выведенного на экран текстового "псевдорисунка" или любой фразы (например, "Привет, МИР!").

Предыдущий
вопрос Следующий
вопрос

К сожалению, в Pascal нет возможности изменять цвет текста на экране в процессе выполнения программы. Однако, вы можете использовать библиотеки GraphABC или Lazarus, которые предоставляют такие функции.

Пример программы с использованием GraphABC:

program ChangeColorText;
uses
GraphABC;
var
text: string;
colors: array[1..6] of Color := (clRed, clBlue, clGreen, clYellow, clPurple, clOrange);
i: integer;
begin
text := 'Привет, МИР!';
i := 1;
repeat
TextOut(WindowWidth div 2 - TextWidth(text) div 2, WindowHeight div 2 - TextHeight text) div 2, text, colors[i]);
Delay(1000); // Задержка в 1 секунду
ClearWindow;
Inc(i);
if i > 6 then
i := 1;
until False;
end.

Этот код создает окно и выводит текст "Привет, МИР!" разными цветами (меняя цвет каждую секунду).