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