program szakasz;
uses graph;
var gd,gm:integer;
begin
  detectgraph(gd,gm);
  initgraph(gd, gm, 'c:\tp70\bgi');
  line(0,0,100,100);
  readln;
  closegraph
end.