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;


if n<>0 then writeln('otvet  ',l div n,'.',
   abs((l*10 div n) mod 10));

end;
readln;
end.