Картман

var stakan_vol := 0.25 ; //Это объем стакана
var milk_weight := 1.28; // Масса молока кг/л
var weight_separator := 30; //Слишком жирный для молока
var students := 0;
var skelet_count := 0; //Количество кощеев
var kartman := 0; //Картман
var cur_weight := 1; //Текущий вес засранца

begin
  while cur_weight > 0 do
    begin
    writeln('Введите вес ', students + 1,
    ' засранца для рассчета (0 - завершить ввод)');
    read(cur_weight);
    if (cur_weight = 0) then break;
    if cur_weight < weight_separator then skelet_count += 1;
    if cur_weight > kartman then kartman := cur_weight;
    students += 1;
   end;
   write('Картман, весом ', kartman, 'кг выжрал молоко ', skelet_count);
   if (skelet_count mod 10 = 1) then writeln(' ученика.')
   else writeln(' учеников.');
   stakan_vol := stakan_vol*skelet_count; //Запишем тут литры
   write('Объём его желудка увеличился на ', stakan_vol);
   writeln('л. а вес на ', stakan_vol*milk_weight, ' кг.');
   write('Текущий вес Картмана ', kartman + stakan_vol*milk_weight, ' кг.');
end.