program first;
uses Graph;
var
    grDriver, grMode, ErrCode, res:Integer;
begin
  grDriver :=detect;
  Initgraph(grDriver, grMode, ' c:\tp7\bgi' );
ErrCode:=graphResult;
if ErrCode= grOk then
begin
line(20,20,80,80);
end;
CloseGraph;
end.