a_bad_asn.mod 102 B

123456
  1. MODULE ABadAsn;
  2. VAR a : ARRAY [1 .. 5] OF INTEGER; x : INTEGER;
  3. BEGIN
  4. x := 1;
  5. a := x
  6. END ABadAsn.