Определить, сколько литров молока потребуется ежедневно для одного класса - Turbo Pascal (34257)

Формулировка задачи:

Ученикам 1-го класса назначается дополнительный стакан молока (200 мл), если их вес меньше 30 кг. Определить, сколько литров молока потребуется ежедневно для одного класса, состоящего из N-учеников. Заранее спасибо....

Решение задачи: «Определить, сколько литров молока потребуется ежедневно для одного класса»

Листинг программы

var
  group : array[1..100] of byte;
  i, n : byte;
  glass : byte; {стакан считаем 200 мл}
begin
  glass := 0;
  write('введите кол-во учеников: ');
  readln(n);
  
  writeln('пусть ', n, ' учеников 1 класса имеют вес: ');
  randomize;
  for i := 1 to n do
  begin
    group[i] := 35 - random(8);
    write(group[i]:3);
    if group[i] < 30 then inc(glass);
  end;
  writeln;  
  writeln('потребуется ', (glass / 5):6:3, ' литров молока');
  readln
end.

Объяснение кода листинга программы

Создаётся переменная group, которая представляет собой массив байтов размером 100.
Создаются две переменные i и n типа byte.
Создается переменная glass типа byte, которая будет использоваться для подсчета объема молока.
Выводится сообщение с просьбой ввести количество учеников.
Вводится количество учеников.
Выводится сообщение о весе каждого ученика 1 класса.
Используется функция randomize для генерации случайного числа в диапазоне от 0 до 7.
Используется цикл for для перебора от 1 до n (количество учеников).
Внутри цикла каждому ученику присваивается случайное значение веса от 35 до 30.
Выводится значение веса каждого ученика.
Если вес ученика меньше 30, то увеличивается значение переменной glass.
По завершении цикла выводится сообщение о количестве молока, необходимого для данного класса.
Выводится символ новой строки.
Программа завершается вызовом функции readln.