tb0382.pp 50 B

1234567
  1. {$J+}
  2. const
  3. w1 : word = 1;
  4. begin
  5. w1:=2;
  6. end.