Program Colors;uses crt;var red,green,blue,yellow:string;beginTextcolor(4);clrscr;gotoxy(30,8);red:='Red';writeln(red);gotoxy(30,9);Textcolor(2);green:='Green';writeln(green);gotoxy(30,10);Textcolor(1);blue:='Blue';writeln(blue);gotoxy(30,11);textcolor(14);yellow:='Yellow';writeln(yellow);end.
Если я так понял,то так.Работы то на 5 минут...