с клавиатуры вводится строка состоящая из букв, знака пробела и циифр. определите количество цифр в этой строке
var
s : string;
i, c : integer;
begin
readln (s);
c := 0;
for i := 1 to length (s) do
if (ord (s[i]) > 47) and (ord (s[i] < 58) then inc (c);
writeln (c);
end.