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.