// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Строка:');
Writeln('Количество цифр в строке = ',s.MatchValues('\d').Count)
end.
Пример
Строка: 3 июля 2015 года
Количество цифр в строке = 5