Program sss;
Uses crt;
var
begin
writeln ('Сколько собрал каждый?');
for i:=1 to 15 do
write (i,' - ый человек собрал ');
readln (kg);
s:=s+kg;
end;
writeln (s,' - кг всего собрали');
end.
