ЧТО ДЕЛАЕТ это программа:
Var s:string; i,n:integer;
Begin
Write(‘введите текст ‘);
readln(s);
n:=0; for i:=1 to length(s) do
if s[i]='.'
then n:=n+1;
Writeln('n=', n);
End.