tb0027.pp 179 B

1234567891011
  1. { Old file: tbs0031.pp }
  2. { tests array[boolean] of .... OK 0.9.8 }
  3. var
  4. a : array[boolean] of longint;
  5. begin
  6. a[true]:=1234;
  7. a[false]:=123;
  8. end.