Cod sursa(job #37925)

Utilizator adalLica Adela adal Data 25 martie 2007 13:05:28
Problema Bowling Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
program bowling;
var f,g:text;
    x,i,j,n,t,nr:longint;
begin
  assign(f,'bowling.in'); reset(f);
  assign(g,'bowling.out'); rewrite(g);
  readln(f,t);
  for i:=1 to t do begin
    read(f,n);
    for j:=1 to n do begin
       read(f,x);
       if x=1 then inc(nr);
    end;
     if nr mod 2=0 then writeln(g,'Nargy') else writeln(g,'Fumeanu');
   end;
 close(f); close(g);
end.