Untitled

Program grafika;

uses crt;

var

i:integer;

begin

clrscr;

writeln(`TextBackground');

for i:=1 to 16 do

begin

TextBackground(i);

writeln(`Cześć',i,'');

end;

readln;

end.

Program alfabet;

Uses crt;

Var

i:char;

begin

clrscr;

for i:='Z' downto `A' do

write(i);

readln;

end.

Program grafika;

Uses crt;

var

i:integer;

begin

clrscr;

writeln(`TextBackground');

for i:=1 to 16 do

begin

TextBackground(i);

Writeln(`Cześć',i,'');

end;

readln;

end.

Program alfabet;

Uses crt;

Var

i:char;

begin

clrscr;

for i:='Z' downto `A' do

write(i);

readln;

end.

Program grafika;

uses crt;

var

i:integer;

begin

clrscr;

writeln(`TextBackground');

for i:=1 to 16 do

begin

TextBackground(i);

writeln(`Cześć',i,'');

end;

readln;

end.

Program alfabet;

Uses crt;

Var

i:char;

begin

clrscr;

for i:='Z' downto `A' do

write(i);

readln;

end.