program u16;
uses
Graph;
var
GrDriver:integer;
GrMode: integer;
ErrorCode: integer;
begin

GrDriver := Detect;
InitGraph(GrDriver,GrMode,'w:\programs\tp6_0\bgi');
ErrorCode := GraphResult;

line (0,100,200,200);
writeln ('largest x coord ',GetMaxX);
writeln ('largest y coord ', GetMaxY);
Readln;
CloseGraph;

end.