program dem_Soluong;
uses crt;
var s:string;
i,ds,dc:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
dc:=0; ds:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then ds:=ds+1
else if (s[i] in ['a'..'z']) and (s[i] in ['A'..'Z']) then dc:=dc+1;
writeln('So luong chu cai la: ',dc);
writeln('So luong chu so la: ',ds);
readln
end.