Напишите процедуру НА ЯЗЫКЕ ПАСКАЛЬ, которая введенном тексте подсчитывает количество цифр

===== PascalABC.NET =====

procedure CountDigits(var n:integer);

begin

 n := 0;

 foreach var d in ReadlnString('Введите текст:') do

   if d.IsDigit then

     n +=1

end;

// тестовая программа

begin

 var k: integer;

 CountDigits(k);

 k.Println

end.