PROGRAM GRAFICA(output); uses Graph; var grDriver : Integer; grMode : Integer; ErrCode : Integer; a:integer; begin grDriver := Detect; InitGraph(grDriver,grMode,''); ErrCode := GraphResult; if ErrCode = grOk then begin { Do graphics } line(0, 0, 640, 480); PUTPIXEL(100,100,3); ReadLn; CloseGraph; end else WriteLn('Graphics error:', GraphErrorMsg(ErrCode)); end.