Program FNG;
Uses crt;
Var S: String;
dem: array['A'..'Z'] of byte;
d,i: longint;
k: char;
Function doixung(St: String): boolean;
Var i: longint;
Begin
For i:=1 to length(St) div 2 do
If St[i]<>St[length(St)-i+1] then exit(false);
exit(true);
End;
Begin
Clrscr;
Write('Nhap S: '); Readln(S);
For i:=1 to length(S) do
S[i]:=Upcase(S[i]);
For k:='A' to 'Z' do
dem[k]:=0;
For i:=1 to length(S) do
If S[i] in ['A'..'Z'] then inc(dem[S[i]]);
Writeln('Cau 1: ');
For k:='A' to 'Z' do
If dem[k]<>0 then Writeln(k,': ',dem[k]);
For i:=1 to length(S) do
If S[i] in ['0'..'9'] then inc(d);
Writeln('Cau 2: ',d);
If doixung(S) then Write('Cau 3: Doi xung')
Else Write('Cau 3: Khong doi xung');
Readln
