program z9_25;
uses crt;
var sl:array [1..30] of string;
s,b,t:string;
i,n,k:integer;
BEGIN
clrscr;
writeln('vvedite tekst');
readln(s);
t:=s+' ';
k:=0;n:=0;
b:='';
for i:=1 to length(t) do
if t[i]<>' ' then begin
b:=b+t[i];
k:=0;
end
else
begin
k:=k+1;
if k=1
then begin
n:=n+1;
sl[n]:=b;
b:='';
end;
end;
k:=0;
for i:=1 to n do begin
s:=sl[i];
if s[1]=s[length(s)] then k:=k+1;
end;
writeln(k:5);
readln;
END.