OI-Public-LIbrary/国家集训队论文/2008/Day1/2.郑暾《平衡规划——浅析一类平衡思想的应用》/ural1099/gen.dpr

program gen;
var n,i,j:longint;
begin
 assign(output,'input.in');rewrite(output);
 randomize;
 n:=222;
 writeln(n);
 for i:=1 to n do
  for j:=i+1 to n do
   if random(100)<2 then
    writeln(i,' ',j);
 close(output);
end.