program akarmi;
{Ilyen kell minden beadandohoz! - Abonyita_a_ludens.elte.hu}
{... az inf.alk.modsz. beadandokhoz graf.unit inicializalasahoz}

uses graph;

procedure grinic;
var path:string; hiba:integer; i:integer;
gd,gm:integer;
procedure inic;
   begin
     detectgraph(gd,gm);
     initgraph(gd,gm,path);
     hiba:=graphresult; {sikeres volt-e az inicializalas}
   end;

begin
  i:=1;
  repeat
     inic;
     if (hiba<>grok) then begin
     writeln('Hol az egavga.bgi? '); readln(path); inc(i); end;
  until ((i=4) or (hiba=grok));
end;

begin
grinic;
end.