const eps1=0.001;
      eps2=0.2;
var xp,yp:array[1..1 shl 18] of extended;
x,y,bun,d:extended;
i,j,n:longint;

procedure rezultat(s:string; p:longint);
begin
 write(stderr,s);
 write(p);
 halt(0);
end;

procedure citire_intrare;
var f:text;
begin
 assign(f,'adapost2.in'); {$i-} reset(f); {$i+}
 if ioresult<>0 then rezultat('Fisier de intrare inexistent!!!',0);
 readln(f,n);
 for i:=1 to n do readln(f,xp[i],yp[i]);
 close(f);
end;

procedure citire_iesire;
var f:text;
begin
 assign(f,'adapost2.out'); {$i-} reset(f); {$i+}
 if ioresult<>0 then rezultat('Fisier de iesire inexistent!!!',0);
 readln(f,x,y);
 d:=0;
 for i:=1 to n do d:=d+sqrt(sqr(x-xp[i])+sqr(y-yp[i]));
 if (d<bun-eps1) then rezultat('Excelent!!!!', 5);
 if abs(d-bun)<=eps1 then rezultat('Excelent!',5) else
 if abs(d-bun)<=eps2 then rezultat('Aproape ai nimerit',2) else
 if abs(d-bun)<5 then rezultat('Diferenta mica, dar de 0 puncte', 0)
                 else rezultat('Raspuns complet gresit!',0);
 close(f);
end;

procedure citire_comisie;
var f:text;
begin
 assign(f,'adapost2.ok'); {$i-} reset(f); {$i+}
 if ioresult<>0 then rezultat('Fisier solutie inexistent!!!',0);
 readln(f,bun);
 close(f);
end;

begin
 citire_intrare;
 citire_comisie;
 citire_iesire;
end.