Информатика PASCAL.
Ввести символы с клавиатуры до нажатие enter и посчитать количество цифр в этой последовательности???

var n,s:integer;beginwrite('Введите число: ');readln(n);s:=0;while n<>0 dobeginn:=n div 10;s:=s+1;end;//Число должно быть в пределах диапазона типа данных integerwriteln('Число состоит из ',s,' цифр');end.Надеюсь, я правильно понял задание...

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!begin  ReadString.Matches('\d').Count.Printlnend.ПримерСегодня 10.02.2018г., время 23:3212