Цвета

Задача:

Демонстрация цветовых атрибутов текста.

Код:



program Colors;
uses crt;
var i:integer;
Begin
clrscr;
for i:= 0 to 1279 do begin            {Все цвета}
                    TextAttr:=i;
                    Write('X');
                    end;
TextAttr:=10;
Readln;
clrscr;
for i:= 0 to 128 do begin             {42!}
                    TextAttr:=i;
                    Write(i);
                    end;
Readln;
End.