program xau;
uses crt;
var s:String;
i, d: Byte;
th: set of char;
begin
clrscr;
th:=['1','2','3','4','5','6','7','8','9','0'];
write('nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if s[i] in th then
inc(d);
writeln('so luong chu so: ', d);
readln;
end.