uses crt;
var s:string; //xau S
i:byte; //bien chay tu dau toi cuoi xau S
c:char; //bien chay tu 'A' den 'Z'
a:array[#0..#255] of byte; //mang su dung phan tu la ky tu ASCII
n:byte; //dem so ky tu khong phai chu so
kt:boolean; //kiem tra doi xung
begin
 clrscr;
 write('nhap xau S:'); readln(s);
 for i:=1 to length(s) do
 begin
  if((s[i]>='a') and (s[i]<='z')) or ((s[i]>='A') and (s[i]<='Z')) then inc(a[upcase(s[i])]);
  //neu no nam trong khoang tu 'a' toi 'z' hoac tu 'A' toi 'Z' thi minh se +1 vao phan tu trong mang
  if not (s[i] in ['0'..'9']) then inc(n); //neu no khong nam trong khoang '0' den '9' thi ta +1 vao bien n
 end;
 writeln('so lan xuat hien cua cac chu cai tieng Anh:');
 for c:='A' to 'Z' do if(a[c]<>0) then writeln(c,' xuat hien ',a[c],' lan');
 writeln('co ',n,' ky tu khong la chu so trong xau S');
 kt:=true; //neu true sau khi thuc hien vong for thi la xau doi xung va nguoc lai, neu false thi khong doi xung
 for i:=1 to length(s) div 2 do //minh chi can kiem tra xem 2 ben co bang nhau khong
 if(s[i]<>s[length(s)-i+1]) then begin kt:=false; break; end;
 if(kt=true) then writeln('xau S la xau doi xung')
 else writeln('xau S khong la xau doi xung');
 readln;
end.