NEERC/central/tests/do12.dpr

   1 const\r
   2         maxn = 1000;\r
   3 var\r
   4         i, n: longint;\r
   5         a: array [1..maxn] of longint;\r
   6 begin\r
   7         n := 200;\r
   8         for i := 1 to n do begin\r
   9                 a[i] := i;\r
  10         end;\r
  11 \r
  12         writeln(n);\r
  13         for i := 1 to n do begin\r
  14                 write(a[i]);\r
  15                 if (i < n) then\r
  16                         write(' ');\r
  17         end;\r
  18         writeln;\r
  19 end.