uses crt,graph;
var i,j,k:byte;
procedure OpenGraph;
var Gd,Gm:integer;
begin
Gd:=InstallUserDriver('SVGA256',nil);
Gm:=2;
initGraph(Gd,Gm,'');
end;
Begin
OpenGraph;
for i:=1 to 255 do
 for j:=1 to 5 do begin
   setcolor(i);
   line(10+j,10+i,200+j,10+i);
       end;
readln;
Closegraph;
end.