var a:string;
i,l,k:integer;
begin
writeln('введите текст');readln(a);
l:=length(a);
for i:=1 to l do
if a[i]='.' then inc(k);
writeln(k,' точек в тексте');
end.