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

uses graphabc;
var i:integer;
begin
setfontsize(30);
for i:=1 to 256 do begin
setfontcolor(rgb(random(256-10),random(256-10),random(256-10)));
textout(210,200,'Hello,world!');
sleep(50);
end;
end.

Скорость мерцания можно менять значением процедуры sleep.