Лабораторные работы_2 / LAB5 / GRAPH

program GraphUsing;
uses graph;
     procedure GrInit;
     var GraphDriver, GraphMode,ErrorCode : integer;
     begin
          GraphDriver:=Detect;
          InitGraph (GraphDriver,GraphMode,'');
          ErrorCode:=GraphResult;
          if ErrorCode <>grOk then
          begin
               writeln ('ЋиЁЎЄ  ',GRaphErrorMsg(ErrorCode));
               Halt(1);
          end;
     end;
begin
     GrInit;
     Line (0,0,Getmaxx,getmaxy);
     readln;
     closegraph;
end.