program napisy_kolorowe;

uses crt;

var name:string;

i,j,k:integer;

begin

clrscr; {czyszczenie ekranu}

for i:=0 to 15 do {numer wiersza}

begin

textcolor (i); {wyswietlenie koloru}

writeln ('numer ',i,' to kolor');

textcolor (i+128); {wyswietlenie koloru migajacego}

writeln ('numer ',i,' to kolor');

end;

for j:=0 to 7 do

begin

textcolor (yellow); {wyswietlenie koloru tekstu}

textbackground (j); {wyswietlenie tla}

writeln ('numer ',j,' to kolor tla');

end;

textcolor (14);

writeln ('numer 14 to kolor zolty');

textcolor (blue+blink);

writeln ('kolor niebieski pulsujacy');

readln;

end.

{Black = 0 - czarny

Blue = 1 - niebieski

Green = 2 - zielony

Cyan = 3 - turkusowy

Red = 4 - czerwony

Magenta = 5 - karmazynowy

Brown = 6 - brązowy

LightGray = 7 - jasnoszary

DarkGray = 8 - ciemnoszary

LightBlue = 9 - jasnoniebieski

LightGreen = 10 - jasnozielony

LightCyan = 11 - jasnoturkusowy

LightRed = 12 - jasnoczerwony

LightMagenta = 13 - jasnokarmazynowy

Yellow = 14 - żółty

White = 15 - biały}

program napisy_kolorowe;

uses crt;

var name:string;

i,j,k:integer;

begin

clrscr; {czyszczenie ekranu}

for i:=0 to 15 do {numer wiersza}

begin

textcolor (i); {wyswietlenie koloru}

writeln ('numer ',i,' to kolor');

textcolor (i+128); {wyswietlenie koloru migajacego}

writeln ('numer ',i,' to kolor');

end;

for j:=0 to 7 do

begin

textcolor (yellow); {wyswietlenie koloru tekstu}

textbackground (j); {wyswietlenie tla}

writeln ('numer ',j,' to kolor tla');

end;

textcolor (14);

writeln ('numer 14 to kolor zolty');

textcolor (blue+blink);

writeln ('kolor niebieski pulsujacy');

readln;

end.

{Black = 0 - czarny

Blue = 1 - niebieski

Green = 2 - zielony

Cyan = 3 - turkusowy

Red = 4 - czerwony

Magenta = 5 - karmazynowy

Brown = 6 - brązowy

LightGray = 7 - jasnoszary

DarkGray = 8 - ciemnoszary

LightBlue = 9 - jasnoniebieski

LightGreen = 10 - jasnozielony

LightCyan = 11 - jasnoturkusowy

LightRed = 12 - jasnoczerwony

LightMagenta = 13 - jasnokarmazynowy

Yellow = 14 - żółty

White = 15 - biały}

---