TP3/shell/tests/fixtures/t08_const.pas

program t08;
const
  n = 7 ;
  c = 'A' ;
var
  x : integer ;
  y : char ;
begin
  x := n * n ;
  y := c ;
  writeln (x, ' ', y)
end.