program zachot2;
uses graph,crt;
var
v:array[0..15] of integer;
d,r,e,i:integer;
begin
clrscr;
d:=detect;
initgraph(d,r,'');
outtextxy (450,200,'HELLO!');
setlinestyle(0,0,1);
for i:=1 to 15 do
begin
setcolor(i);
line(getmaxx div 9, i*20,5*getmaxx div 9,i*20)
end;
v[0]:=15;
repeat
for i:=1 to 15 do
v[i]:=random(15);
setallpalette(v)
until keypressed;
readln;
closegraph;

end.