var

 Animal: array [1..15, 1..2] of Real;

 i, с: Integer;

 L: Real;

begin

 Randomize;

 WriteLn ('№ | Возраст | Вес | Молоко');

 for i := Low (Animal) to High (Animal) do begin

   Animal [i, 1] := Random * 10;  // возраст = случайное значение

   Animal [i, 1] := Random * 5;   // вес = случайное значение

 end;

 с := 0;

 for i := Low (Animal) to High (Animal) do begin

   WriteLn;

   Write (i:2, Animal [i, 1]:7:2, Animal [i, 2]:8:2);

   if (Animal [i, 1] >= 1) and (Animal [i, 1] <= 2) and (Animal [i, 2] < 3) then begin  // возрасть от 1 до 2 и вес меньше 3

     Inc (с);  // счетчик стаканов молока

     Write ('  0.2');

   end;

 end;

 L := с * 0.2 * 365.25 / 12;  // количество дней в месяце принимаем среднее за год = 365.25 / 12, можно вместо этого написать 30 или 31, не знаю

 WriteLn;

 Writeln ('В месяц потребуется ', L:5:2, ' дополнительных литров молока');

end.