program example;
var
 number, n,i: integer;

begin
 Writeln('Введіть ціле число');
 Readln(i);
 n:=1;
 While number > 10 DO
 begin
 number := number div 10;
 Inc(n);
 end;
 Write('Кількість цифр = ', n);
 Readln;
end.