program ring;
uses graph;
var draiver, mood, viga: integer;

Procedure KaivitaGraafika;
          begin
               draiver:=detect;
               Initgraph(draiver, mood, 'C:\bP\BGI');
               viga:=GraphResult;
               if viga <> GrOK then
               begin
                    writeln('Graafikaviga ',GraphErrorMsg(viga));
                    Halt(1);
               end;
          end;

begin 
 KaivitaGraafika;
 circle(150, 50, 30);
 readln;
 CloseGraph;
end.