Дано число, посчитать кол-во цифр в нём.

program kol;
var
a, c : longint; {число}
b : integer; {кол-во цифр}
begin
writeln('Введите целое число.');
readln(a);
c := a; b := 0;
while ( c <> 0) do
begin
b := b + 1;
c := c div 10; {удаляем у числа последнюю цифру}
end;
writeln('Количество цифр в числе ', a, ' = ', b);
readln;

end.

Скачать решение.

Еще один вариант.

var
n: Word;
begin
writeln('Введите n: ');

readln(n);
writeln('Количество цифр в числе n:',
Succ(Trunc(Ln(n)/Ln(10))));
end.