program DoHoa;

uses graph;

procedure KhoiDong;

var

 grDriver: Integer;

 grMode: Integer;

 ErrCode: Integer;

begin

 grDriver := Detect;

 InitGraph(grDriver, grMode,' ');

 ErrCode := GraphResult;

 if ErrCode <> grOk then

 begin  { Do graphics }

   Writeln('Graphics error:', GraphErrorMsg(ErrCode));

   halt(1);

 end;

end;

{-----------------------------}

{      CHUONG TRINH CHINH     }

{-----------------------------}

BEGIN

  KhoiDong;

  readln;

  closegraph;

END.