Двно целое число n.Составить программу нахождения количества цифр числа

Question

Двно целое число n.Составить программу нахождения количества цифр числа

Answer 1

Var
  a:longint;
  s:string;
begin
  writeln('Введите целое положительное число');
  readln(a);
  Str(a,s);
  writeln('Количество цифр в числе равно ',length(s));
end.

Тестовый пример:

Введите целое положительное число
23434232
Количество цифр в числе равно 8