В блоке CONST можно описывать не только константы, но и переменные величины. Эти переменные величины из-за того, что они описаны в таком странном месте, приобретают неудачное название типизированные константы, но переменными быть не перестают, а самое для нас главное - здесь им можно удобно придавать начальные значения. Вот пример:
CONST n :Integer =800;
e :Real =2.7;
Вот как запишется программа для вычисления средней недельной температуры из 12.4, если массив t описать как типизированную константу:
CONST k =7; { k - обычная, нетипизированная константа}
t :array [1..k] of Integer = (-14, -12, -8, -2, 0, 1, -3);
{ t - типизированная константа}
VAR s,i :Integer;