program bai_giai;
uses crt;
var dems,demc,i:longint;s:string;
begin
 clrscr;
  write('nhap xau:');readln(s);
  dems:=0;
  demc:=0;
  for i:=1 to length(s)do
        begin
         if(s[i] in['0'..'9'])then inc(dems);
         if(s[i] in['A'..'z'])then inc(demc);
        end;
  writeln('co ',dems,' ki tu so trong xau');
  write('co ',demc,' ki tu chu trong xau');
 readln;
end.

uses crt;
var s:string; i,d1,d2:longint;
begin
clrscr;
   write('Nhap xau s: ');readln(s);
   for i:=1 to length(s) do 
      if upcase(s[i]) in ['A'..'Z'] then inc(d1) else
      if s[i] in ['0'..'9'] then inc(d2);
   writeln('Xau s co ',d1,' chu cai');
   writeln('Xau s co ',d2,' chu so');
readln;
end.