mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 01:38:07 +02:00
58 lines
846 B
ObjectPascal
58 lines
846 B
ObjectPascal
{ %skiptarget=wince }
|
|
|
|
uses
|
|
crt;
|
|
|
|
begin
|
|
textcolor(blue);
|
|
writeln('blue');
|
|
|
|
textcolor(green);
|
|
writeln('green');
|
|
|
|
textcolor(cyan);
|
|
writeln('cyan');
|
|
|
|
textcolor(red);
|
|
writeln('red');
|
|
|
|
textcolor(magenta);
|
|
writeln('magenta');
|
|
|
|
textcolor(brown);
|
|
writeln('brown');
|
|
|
|
textcolor(lightgray);
|
|
writeln('lightgray');
|
|
|
|
textcolor(darkgray);
|
|
writeln('darkgray');
|
|
|
|
textcolor(lightblue);
|
|
writeln('lightblue');
|
|
|
|
textcolor(lightgreen);
|
|
writeln('lightgreen');
|
|
|
|
textcolor(lightcyan);
|
|
writeln('lightcyan');
|
|
|
|
textcolor(lightred);
|
|
writeln('lightred');
|
|
|
|
textcolor(lightmagenta);
|
|
writeln('lightmagenta');
|
|
|
|
textcolor(yellow);
|
|
writeln('yellow');
|
|
|
|
textcolor(white);
|
|
writeln('white');
|
|
|
|
textcolor(white+blink);
|
|
writeln('white blinking');
|
|
|
|
textcolor(lightgray);
|
|
writeln;
|
|
end.
|