Program mn_7;
uses crt;
type let=' а'..'я';
var sogl:set of let;
s:string;
I,k:byte;
begin
writeln('введите текст, заканчивающийся  точкой');
readln(s);
if s[length(s)]<>'.' then s:=s+'.';
sogl :=['п','ф','х','т','с','к','ч','ш','щ','ц', 'б','в','г','д','ж','з','л','м','н','р'];
i:= length(s);
while s[i]<>'  ' do begin  if s[i] in sogl then k:=k+1; i:=i-1;end;
writeln(k);
readln;
end.