var a,st,ansst : string;
ans,i:integer;
first:char;
flag : boolean;
begin
readln(a);
a := a.Trim();
while(a.Contains('  ')) do a:=a.Replace('  ',' ');
ans:=0;
for i:=1 to a.Length do
if(a[i] = ' ') then ans+=1;
writeln('Количество слов: ',ans+1);
i:=a.Length;
ans:=0;
while(i > 0) and (a[i] <> ' ') do begin
if ((ord(a[i]) >= ord('a')) and (ord(a[i]) <= ord('z'))) or (((ord(a[i]) >= ord('A')) and (ord(a[i]) <= ord('Z'))) ) then ans+=1; i-=1; end;
writeln('Букв в последнем слове: ', ans);
ans:=0;
flag:=true;
for i:=1 to a.Length do begin
if(flag) and ((a[i] = 'я') or (a[i] = 'Я')) then begin ans+=1; flag:=false; end;
if(a[i] = ' ') then flag:=true;
end;
writeln('Встречается буква я: ', ans);
writeln('Слова в обратном порядке: ');
st:='';
ansst:='';
for i:=a.Length downto 1 do begin
if(a[i] = ' ') then begin st:=string.Join('',st.Reverse().ToArray()); ansst+= st + ' '; st:='' end;
st+=a[i];
end;
st:=string.Join('',st.Reverse().ToArray());
ansst+= st + ' ';
writeln(ansst);

ans:=0;
flag:=true;
i:=1;
while(i<= a.Length) do begin
if(a[i] = 'A') and  (a.IndexOf('$$',i) > 0) and ((a.IndexOf('$$',i)=a.Length-2)or (a[a.IndexOf('$$',i)+3] = ' ') or (a[a.IndexOf('$$',i)+3] = ',') or (a[a.IndexOf('$$',i)+3] = '.')) then begin ans+=1; i:=a.IndexOf('$$',i)+2; end;
if(a[i] <> 'A') then begin i:=a.IndexOf(' ',i)+1; if(i=0) then break; end;
i+=1;
end;
writeln('Начинаются на А, а заканчиваются на $$: ', ans);
end.