var
s:string;
n,k,i:integer;
begin
writeln ('Bведите текст');
readln (s);
n:=length (s);
k:=0;
for i:=1 to n-1 do 
if (s[i]=s[i+1]) and (s[i]<>' ') then k:=k+1;
writeln ('Кол-во удвоенных букв равно ',k);
end.