Program CountDigits;

var
text: string;
i, countDigits: integer;

begin
text := '';
countDigits := 0;

writeln('Enter text (type a dot to stop):');
repeat
readln(text);
for i := 1 to length(text) do
begin
if (text[i] >= '0') and (text[i] <= '9') then
countDigits := countDigits + 1;
end;
until text = '.';

writeln('Number of digits in the text: ', countDigits);
end.