Cod sursa(job #18437)
Utilizator | Data | 18 februarie 2007 12:12:33 | |
---|---|---|---|
Problema | Amlei | Scor | 0 |
Compilator | fpc | Status | done |
Runda | preONI 2007, Runda 2, Clasa a 10-a | 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.