Cod sursa(job #18438)

Utilizator raduzerRadu Zernoveanu raduzer Data 18 februarie 2007 12:12:33
Problema Amlei Scor 0
Compilator fpc Status done
Runda preONI 2007, Runda 2, Clasa a 9-a si gimnaziu Marime 0.44 kb
var i,j,x:integer;
begin
     assign(input,'amlei.in');
     reset(input);
     assign(output,'amlei.out');
     rewrite(output);
     i:=0;
     while not eof do
     begin
          readln;
          readln;
          readln;
          i:=i+1;
     end;
     randomize;
     for j:=1 to i do
     begin
          x:=random(2);
          if x=0 then writeln('NU')
                 else writeln('DA');
     end;
close(output);
end.