Var ai, n: integer; begin readln(ai, n); writeln(ai * n, ' kg'); end. Такие дела)
немного не верно
вы не так поняли суть задачи
Это печально:((( А если серьёзно, то какая тут суть?)
суть в том что Н людей перенесли К зерна. нужно посчитать общее число
сколько перенес каждый, не известно. один 100 другой 200 третий 150 и т.д