program xau;
uses crt;
var s:String;
i, d: Byte;
th: set of char;
f: text;
begin
clrscr;
assign(f, 'BT1.TXT'); rewrite(f);
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);
write(f, d);
close(f);
end.
{GM Kiet}