{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;
    l, nrcuv, k: integer;
    c:char;
begin
   l:=0;
   nrCuv:=0;
   k:=0;

   assign(f, 'text.in');
   reset(f);
    while not eof(f) do
    begin
      read(f, c);
      if c in ['A'..'Z', 'a'..'z'] then
      begin
        inc(l);
        if k=0 then inc(nrcuv);
        k:=1
      end
      else k:=0;
     end;
   close(f);

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