Cod sursa(job #253971)

Utilizator ShadowHunterGhinea Razvan ShadowHunter Data 6 februarie 2009 13:56:30
Problema Episoade Scor 0
Compilator fpc Status done
Runda Stelele Informaticii 2009, clasele 9-10, ziua 1 Marime 0.26 kb
var f,g:text;
    o,t,n,i:longint;
    s:string;
begin
assign(f,'episoade.in');reset(F);
assign(g,'episoade.out');rewrite(g);
readln(f,s);
readln(f,t,n);
randomize;
for i:=1 to t do begin
o:=random(2);
writeln(g,o);
end;
close(f);
close(G);
end.