program dem_so_chucai;
uses crt;
var s:string;
{---Ham-dem-so---}
function demso(s:string):byte;
var i,d:byte;
begin
d:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then d:=d+1;
demso:=d;
end;
{---Ham-dem-chu-cai---}
function demcc(s:string):byte;
var i,d:byte;
begin
d:=0;
for i:=1 to length(s) do
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then d:=d+1;
demcc:=d;
end;
{---Chuong-trinh-chinh---}
begin
clrscr;
write('Nhap xau: '); readln(s);
writeln('a. Co ',demso(s),' chu so');
writeln('b. Co ',demcc(s),' chu cai');
readln;
end.
