N2_podgotov

//Программа, которая считывает число и выводит кол-во цифр в десятичной записи этого числа

var x, c : integer;
begin
    readln(x);
    c := 0;
    while (x > 0) do
    begin
        inc(c); //c := c + 1;
        x := x div 10; //тут может быть любое основание системы счисления
    end;
    writeln(c);

    //x: 1625 -> 162 -> 16 -> 1 -> 0
    //c: 0    -> 1   -> 2  -> 3 -> 4
end.