uses crt;
var s : string; k, i : byte;
begin
clrscr;
write('Nhap xau : '); readln(s);
if length(s) <= 200 then
begin
k := 0;
for i := 1 to length(s) do
begin
if s[i] in ['A'..'Z'] then k := k + 1;
if s[i] in ['a'..'z'] then k := k + 1;
end;
writeln('So tu co trong xau : ', k);
end;
readln
end.