21 lines
352 B
ObjectPascal
21 lines
352 B
ObjectPascal
// Ñòàíäàðòíûå CRT-öâåòà
|
|
// Äëÿ çàïóñêà ïðîãðàììû èñïîëüçóéòå Shift+F9 !!!
|
|
uses CRT;
|
|
|
|
begin
|
|
SetWindowTitle('Ñòàíäàðòíûå CRT-öâåòà');
|
|
for var i:=0 to 15 do
|
|
begin
|
|
TextBackground(i);
|
|
for var j:=0 to 15 do
|
|
begin
|
|
TextColor(j);
|
|
write(' CRT');
|
|
end;
|
|
writeln;
|
|
end;
|
|
HideCursor;
|
|
TextBackground(0);
|
|
TextColor(0);
|
|
end.
|