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

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