срочно ребята завтра экзамен!!!!
Задача решается в паскале
Дан текст, содержащий цифры и буквы. Определить, сколько цифр в тексте.

var s:string; i,k:integer;beginwriteln('Введите текст:');readln(s);k:=0;for i:=1 to length(s) do if (s[i]>='0')and(s[i]<='9') then k:=k+1;writeln('k = ',k);end.Пример:Введите текст:IP-адреса 211.115.61.154 и 211.115.59.137k = 22