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

Question

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

Answer 1

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