Cod sursa(job #37810)

Utilizator raduzerRadu Zernoveanu raduzer Data 25 martie 2007 12:41:51
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 t,s,i:integer;
begin
     randomize;
     assign(input,'bowling.in');
     reset(input);
     assign(output,'bowling.out');
     rewrite(output);
     readln(t);
     for i:=1 to t do
     begin
          s:=random(1);
          if s=1 then writeln('Fumeanu')
                 else writeln('Nargy');
     end;
close(output);
end.