#include <bits/stdc++.h>
//(╯°□°）╯
//fb.com/HaoVoxx
#define endl '\n'
typedef unsigned long long ull;
typedef long long ll;

using namespace std;

int main()
{
    ios_base::sync_with_stdio(0);
    cin.tie(0);
    cout.tie(0);
    // freopen(file".INP", "r", stdin);
    // freopen(file".OUT", "w", stdout);
    string s;
    cin >> s;
    for(int i = s.size() - 1; i >= 0; i--) cout << s[i];
     cout << endl;
    for(int i = 0; i < s.size(); i++) cout << (char) toupper(s[i]);
     cout << endl;
    cout << s.size() - 1 << endl;
    int dem = 0;
    for(int i = 0; i < s.size(); i++)
     if(s[i] == 'a') dem ++;
    cout << dem;
    return 0;
}

//ngon ngu C++ nhe

uses crt;
 var s,h : string ;
  i,d : byte ;
   begin
    clrscr;
    write('Nhap xau :');
     readln(s);
 write('Xau in theo nguoc lai la: ');
  for i:=length(s) downto 1 do 
      write(s[i]);
      writeln;
      h:=upcase(s);
       writeln('Xau sau khi in hoa: ',h);
        writeln('Do dai xau la: ',length(s));
    d := 0 ;
     for i :=1 to length(s) do 
        if s[i]='a' then d := d + 1 ;
         writeln('Co ',d,' so ky tu la "a"');
        end.