Лабораторные работы_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.