Каждому пушному зверьку в возрасте от 1-го до 2-х месяцев надеется

  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] gt;= 1) and (Animal [i, 1] lt;= 2) and (Animal [i, 2] lt; 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.