Question

Требует непрерывной регистрации изменений размера запасов материалов, готовой продукции, незавершенного производства

Answer 1

Вообще-то описание массива содержится в строке

var mas:array[1..n] of integer;

А вся программа ввода иммет вид:

Program Cat;
const n=31;
var mas:array[1..n] of integer;
i:integer;
begin
  for i:=1 to n do
  begin
    write('Введите вес котенка ',i,' -го мая');
    readln(mas[i]);
  end;
end.

Answer 2

const n=31;
var a:array[1..n] of integer; // Массив до 31
i:integer;
begin
a[1]:=1; // Обьявляем значения
a[2]:=3; // Обьявляем значения

// итд до 31
for i:=1 to n do writeln(i,' day:=',a[i]); // Вывод массива
end.