var n, counter : integer;
begin
counter := 0;
writeln('Введите число: ');
readln(n);
while n > 0 do
counter := counter + 1;
n := n div 10;
end;
writeln('Количество цифр в данном числе: ', counter);
end.
