Cod sursa(job #37441)

Utilizator andrutzaDincu Andra andrutza Data 25 martie 2007 09:45:31
Problema Bowling Scor 0
Compilator fpc Status done
Runda preONI 2007, Runda 4, Clasa a 10-a Marime 0.34 kb
Raporteaza aceasta sursa 
var s,j,n,t,nr,i:longint;
begin
assign(input,'bowling.in'); reset(input);
assign(output,'bowling.out'); rewrite(output);
readln(t);
repeat
  s:=0;
  inc(j);
  read(n);
  for i:=1 to n do begin read(nr);  end;
  if n mod 2=1 then writeln('Nargy')
     else writeln('Fumeanu');
  readln;
until j=t;
close(input); close(output);
end.