Type mem is array(0 to 20) of integer range 0 to 1023 ;
Constant tabfreq_ampli : mem := (0, 264, 511, 723, 885, 988, 1022, 988, 885, 723, 511, 264, 0, 264, 511, 723, 885, 988, 1022, 988, 885);