uses crt;
var
bidon:array[1..100] of integer;
dl:array[1..100] of integer;
i,j,s,b,d,kalan:integer;
 
begin
clrscr;
writeln('Bidon kapasitelerini giriniz...:');
s:=0;b:=0;d:=0;
 
repeat
readln(b);s:=s+1; bidon[s]:=b;
until b=0;
 
readln;
for i:=1 to s-1 do
 dl[i]:=0;
 
kalan:=100;
for i:=1 to s-1 do
begin
 kalan:= kalan-bidon[i];
 if kalan >= 0 then dl[i]:=2
 else if kalan < 0 then begin kalan:= kalan + bidon[i]; i:=s-1;end;
end;
 
 
j:=0;
if kalan<>0 then
begin
for i:=1 to s-1 do
begin
if j=0 then
 if dl[i]<>2 then begin dl[i]:=1; j:=i;end;
end;
end;
 
for i:=1 to s-1 do
if dl[i]=0 then b:=b+1
else if dl[i]=2 then d:=d+1;
writeln('');
writeln(d, ' bidon tamamen doldurulur.');
writeln(b, ' bidon hic doldurulmaz.');
if kalan<>0 then
writeln(j, '. bidonun ', bidon[j], ' litreden ', kalan, ' litresi doldurulur.');
readln;
end.