var s: string;

i, counter: integer;

begin

       write('Введите строку: ');

       readln(s);

       for i := 1 to Length(s) do

               if s[i] in ['1'..'9'] then

                       inc(counter);

       writeln(counter);

end.