{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: integer;

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

   l:=0;
   nrCuv:=0;
   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
       begin
        if str[i-1] in ['A'..'Z', 'a'..'z'] then inc(nrcuv);
       end;
   end;

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