Program string_20;
uses crt;
var s : string;
kol,m : integer;
i,nd : byte;
begin
clrscr;
write('введите произвольную строку ');readln(s);
nd:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(nd);
writeln(nd);
readln;
end.