program textaaf;
var f,g:text;
    a:array[1..100] of char;
    l,n,nr,i:integer;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
n:=0;
nr:=0;
i:=1;
read(f,a);
while (a[i]<>' ')and(a[i+1]<>' ') do begin
while a[i]<>' ' do begin
read(f,a[i]);
n:=n+1;
end;
nr:=nr+1;
end;
l:=n div nr;
write(g,l);
close(f);close(g);
end.