var
a: array[1..31] of real;
i:integer;
begin
writeln('Вес котенка (кг): ');
for i:=1 to 31 do
begin
write(i, ' мая: ');
readln(a[i]); //Заносим значения в массив
end;
end.
Впринципе, все, значения будут храниться в массиве, для вывода значений использовать оператор write.