Question

Pascal Вывести для каждого заданного числа количество цифр.
Формат ввода:

Элементы последовательности (целые числа в диапазоне от -30000 до 30000) заданы по одному на строке через пробел. Признак окончание последовательности - число 0 (в последовательность не входит).

Формат вывода:
Целое число.
Пример входных данных

1 -23 -31 486 0
Пример выходных данных

1223