2
0

tw9072b.pp 143 B

123456789101112
  1. { %fail }
  2. var
  3. a: array[1..2] of longint;
  4. l: longint;
  5. begin
  6. l:=0;
  7. for a[1]:=1 to 10 do
  8. inc(l);
  9. if (l<>10) then
  10. halt(1);
  11. end.