{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:text;
    S:string;
    lit1,cuv,med:integer;

procedure Clc(ss:string; var lt,cv:integer);
 var l,k,i:integer;
 begin
   k:=0;
   lt:=0;
   cuv:=0;
   l:=length(ss);
   for i:=1 to l do
      if (S[i] in ['A'..'Z','a'..'z']) then  begin
                             inc(lt);
                             if k=0 then inc(cv);
                             k:=1;
                             end
                       else k:=0;
 end;
                      
begin
    assign(f, 'text.in');
  reset(F);
  read (f,s);
  close(f);
  Clc(s,lit1,cuv);
  med:=lit1 div cuv;
  assign(f, 'text.out');
  rewrite(f);
  write(f,med);
  close(f);
end.