NEERC/kequiv/tests/do10.dpr

   1 var i, j : integer;\r
   2 begin\r
   3   writeln (8192);\r
   4   for i := 0 to 1 shl 13 - 1 do begin\r
   5     for j := 12 downto 0 do\r
   6       if (i and (1 shl j)) <> 0 then\r
   7         write (5)\r
   8       else\r
   9         write (4);\r
  10      write (4, ' ');\r
  11     for j := 12 downto 0 do\r
  12       if (i and (1 shl j)) <> 0 then\r
  13         write (5)\r
  14       else\r
  15         write (4);\r
  16      writeln (5);\r
  17   end;\r
  18 end.