Может быть, так:uses graphABC;Beginsetfontcolor(clRed);writeln('Белеет парус одинокой');setfontcolor(clBlue);writeln('В тумане моря голубом!..');setfontcolor(clDarkOrchid);writeln('Что ищет он в стране далекой?');setfontcolor(clDeepSkyBlue);writeln('Что кинул он в краю родном?..');setfontcolor(clDeepPink);writeln('Играют волны - ветер свищет,');setfontcolor(clMagenta);writeln('И мачта гнётся и скрыпит...');setfontcolor(clDarkGreen);writeln('Увы! он счастия не ищет');setfontcolor(clLime);writeln('И не от счастия бежит!');setfontcolor(clBrown);writeln('Под ним струя светлей лазури,');setfontcolor(clIndigo);writeln('Над ним луч солнца золотой...')End.