program vytah;
var a,b,c,d,sucet,pocet:integer;
begin
a:=0;
while sucet<=100 do    begin
writeln('zadaj hmotnost balika ');
readln(a);
sucet:=sucet+a;
pocet:=pocet+1;
              end;
              writeln('sucet hmotnosti balikov je ',sucet);
              writeln('pocet balikov je ',pocet);

readln;
end.