Cod sursa(job #66427)
Utilizator | Data | 18 iunie 2007 13:26:44 | |
---|---|---|---|
Problema | Perle | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.21 kb |
var i,n:longint;
begin
assign(input,'perle.in');
assign(output,'perle.out');
reset(input);
rewrite(output);
readln(n);
randomize;
for i:=1 to n do
writeln(random(2));
close(input);
close(output);
end.