Составьте программу, подсчитывающую количество цифр вводимого вами целого не отрицательного числа. на абс паскале,

program n_1
s:string;
writeln('Введите число положительное целое ');
readln(s);
kol-vo:=length(s);
end.