Uses crt;

s:string;

dc,ds,i:longint;

BEGIN
clrscr;

write('Nhap xau: '); readln(s);

dc:=0;

ds:=0;

for i:=1 to length(S) do

begin

if S[i] in ['A'..'z'] then inc(dc);

if S[i] in ['0'..'9'] then inc(ds);

end;

writeln('So chu trong xau la: ',dc);

write('So so trong xau la: ',ds);

readln;

end.

var s: string;
    so, chu, i: int64;
begin
    readln(s);
    so := 0;
    chu := 0;
    for i := 1 to length(s) do
    if s[i] in ['0'..'9'] then so := so + 1
    else if s[i] in ['A'..'z'] then chu := chu + 1;
    writeln('So luong chu so trong xau s: ',so);
    writeln('So luong chu cai trong xau s: ',chu);
end.