1
0

gen.dpr 237 B

1234567891011121314
  1. program gen;
  2. var n,i,j:longint;
  3. begin
  4. assign(output,'input.in');rewrite(output);
  5. randomize;
  6. n:=222;
  7. writeln(n);
  8. for i:=1 to n do
  9. for j:=i+1 to n do
  10. if random(100)<2 then
  11. writeln(i,' ',j);
  12. close(output);
  13. end.