Помогите с переменной

[ForzaJuve]

Здравствуйте,
Подскажите пожалуйста, как задать массив из 12 ячеек содержащий в каждой ячейке количество дней в месяце( например 31, 28, 31, 30 и тд), тоесть обычный массив, но чтобы в нем сначала было заданы эти 12 значений.
Заранее благодарен.

[ОДИНОЧЕСТВО В СЕТИ]

for i:=1 to 12 do
case i of 
1,3,5,7,8,10,12:a[i]:=31;
   2:a[i]:=28;
2,4,6,9,11:a[i]:=30;
end;

[Aristarh Dark]

Константа?

[ForzaJuve]

Спасибо, а если в разделе var? или это единственный способ?

[ForzaJuve]

Сообщение от Aristarh Dark

Константа?

да, именно чтоб в начале программы было задано.

[IT-man]

var
m:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
.....

[ForzaJuve]

спасибо огромное