Программа получает на вход последовательность из N целых неотрицательных чисел. Найти
количество всех цифр в последовательности чисел.

const

 nmax = 100;

function chisla(n: integer): byte;

var

 k: byte;

begin

 k := 0;

 repeat

   n := n div 10;

   inc(k)

 until n = 0;

 chisla := k

end;

var

 a: array[1..nmax] of integer;

 n, i, count: integer;

begin

 Writeln('Введите N: ');

 Read(n);

 count := 0;

 for i := 1 to n do

 begin

   Read(a[i]);

   count += chisla(a[i]);

 end;

 Writeln('Количество цифр во всех числах: ', count);

end.

Тестовое решение

Введите N:  

5

123

12

432

1

12345

Количество цифр во всех числах: 14