Uses crt;
Var F,G:text;
    s:string;

Procedure KT_NhapDL;
Begin
Clrscr;
Assign(F,'ket_qua.inp');
Assign(G,'ket_qua.out');
Rewrite(G);
{$I-} Reset(F); {$I+}
If ioresult<>0 then
 Begin
  Rewrite(F);
  Reset(F);
 End;
Read(F,s);
End;

Procedure dem;

Var i,ds,dkt:integer;

Begin

Write(G,'a. ');

ds:=0; dkt:=0;

For i:=1 to length(s) do

If s[i] in ['0'..'9'] then ds:=ds+1;

dkt:=length(s)-ds;

Writeln(G,'So ki tu co trong xau la: ',dkt);

Writeln(G,'So chu so co trong xau la: ',ds);

End;

Procedure chuanhoa;

Var i:integer;

Begin

Write(G,'b. ');

For i:=1 to length(s) do s[i]:=upcase(s[i]);

Writeln(G,'Xau sau khi chuan hoa: ',s);

End;

Procedure tim;

Begin

Write(G,'c. ');

If pos('tin',s)<>0 then writeln(G,' Co ')

 Else Writeln(G,'Khong co');

End;

Procedure ktdx;

Var i:integer;

       st:string;

Begin

st:='';

Write(G,'d. ');

For i:=length(s) downto 1 do st:=st+s[i];

If st=s then Writeln(G,' Doi xung')

 Else Writeln(G,'Khong doi xung');

End;

Begin

KT_NhapDl;  

dem;

chuanhoa;

tim;

ktdx;

Close(F);

Close(G);

END.