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

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

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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.