для введенного целого числа определить количество значащих цифр. Сколько цифр в записи числа?

var
    n, d: longint;
begin
    write('n? ');
    readln(n);
    repeat
        inc(d);
        n := n div 10;
    until n = 0;
    write('digits: ', d);
end.