uses graph;

var a,b: integer;
begin
initgraph(a,b,'c:\bp\bgi');
line(67,34,123,234);
end.