Ответ:

var s:string;

   n, count:integer;

begin

 readln(s);

 count:=0;

 while pos('.', s) > 0 do begin

   n:=pos('.', s);

   delete(s, n, 1);

   count:= count + 1;

 end;

 writeln(count);

end.

Объяснение:

Удачи в тесте :D