{Dezamagit de rezultatele sale la ultimul concurs, Paftenie a renuntat la programare si s-a concentrat strict asupra muncii
laborioase, dar care implica mai putin efort intelectual.
De aceasta data, el primeste un text si trebuie sa calculeze lungimea medie
a cuvintelor textului, un cuvant fiind definit ca o secventa continua
maximala de caractere ale alfabetului englez ('a' .. 'z' , 'A' .. 'Z').
Definim lungimea medie = (lungimea totala a cuvintelor textului) / (numarul de cuvinte ale textului).
}
program p1;
var f: textfile;
    str: string;
    i, l, nrcuv, k: integer;

begin
   assign(f, 'text.in');
   reset(f);
   readln(f, str);
   close(f);

   l:=0;
   nrCuv:=0;
   k:=0;

   for i:=1 to length(str) do
   begin
      if str[i] in ['A'..'Z', 'a'..'z'] then
      begin
        inc(l);
        if k=0 then inc(nrcuv);
        k:=1
      end
      else k:=0;
   end;



   {if str[1] in ['A'..'Z', 'a'..'z'] then inc(l);

   for i:=2 to length(str) do
   begin
      if str[i] in ['A'..'Z', 'a'..'z'] then inc(l)
       else
        if str[i-1] in ['A'..'Z', 'a'..'z'] then inc(nrcuv);
   end; }

   assign(f, 'text.out');
   rewrite(f);
   write(f, l div nrcuv);
   close(f);
end.