p_bad_new.mod 71 B

123456
  1. MODULE PBadNew;
  2. VAR x : INTEGER;
  3. BEGIN
  4. x := 1;
  5. NEW(x)
  6. END PBadNew.