Cod sursa(job #66429)

Utilizator alex_mircescuAlex Mircescu alex_mircescu Data 18 iunie 2007 13:29:05
Problema Perle Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
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));}
writeln(1);
writeln(0);
writeln(1);
close(input);
close(output);
end.