Ответ:

program HomeWork;

var i,a,b,c:integer;

begin

   c:=0;

   write('Введите количество человек: '); readln(a);

   for i:=1 to a do

   begin

       write('Введите вес ', i, '-го человека (кг): '); readln(b);

       c:=c+b;

   end;

   writeln('Общий вес (кг): ', c)

end.