program linije;
uses graph;
var drajver,rezim,i:integer;
begin
  ClrScr;
  writeln(' Ovaj program prikazuje stilove linija');
  write(' (pritisni <enter> za nastavak)');
  readln;
  drajver:=detect;
  initgraph(drajver,rezim,'');
  setbkcolor(blue);
  for i:=0 to 4 do
  begin
    setcolor(white);
    setlinestyle(i,1,3);
    Line(0,10*i,400,150*i)
  end;
  readln;
  closegraph
end.