Cod sursa(job #125421)

Utilizator MDanFMI - Dan Moldovan MDan Data 20 ianuarie 2008 12:51:03
Problema Xerox Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 3, Clasele 11-12 Marime 0.21 kb
var f,g:text;
    t,aux:integer;
begin
assign (f,'xerox.in');
assign (g,'xerox.out');
reset(f);
rewrite(g);
readln (f,t);
randomize;
for aux:=1 to t do
writeln (g,random(2));
close(f);
close(g);
end.