program pr_1;
uses crt;
var f:text;
    n,l:integer;
    c:char;

begin
clrscr;
n:=0;
l:=0;
assign(f,'c:\a3.txt');
reset(f);
if eof(f) then writeln('pusto')
else
begin
 while not eof(f) do
 begin
  read(f,c);
  if (c=',') or (c<'A') or (c>'z') or ((c>'Z') and (c<'a')) then
  begin
  n:=n+1;
  repeat
   read(f,c);
  until ((c>'A') and (c<'Z')) or ((c>'a') and (c<'z'));
  l:=l+1;
  end
  else l:=l+1;
 end;
 if n<>0 then writeln('otvet  ',l div n,'.',
    abs((l*10 div n) mod 10));
end;
readln;
end.