COLORES EN TURBO PASCAL..

[J@Ker Lo10]

Hola!"
Solo copia pegar y corre jajajaj
Espero sirva de algo!
codigo fuente en turbo pascal

{PROGRAMA QUE MUESTRA LOS COLORES EN TURBO PASCAL}
Uses Crt;
Var
   X:char;
   i:integer;
Begin
     clrscr;
      gotoxy(40,1);write('cortesia: jake_lolo');
     gotoxy(25,2);write('COLORES EN TURBO PASCAL');
     {EL COLOR NEGRO ES EL CERO}
     for i:=0 to 15 do
         begin
              textcolor(i);
              gotoxy(28,(5)+i);write('TextColor(',i,')');
         end;

     X:=ReadKey;
end.

[RevangelyonX]