TP3/shell/tests/fixtures/t08_const.pas

program t08;
const
  n = 7 ;
  c = 'A' ;
var
  x : integer ;
begin
  x := n
end.