Короткое решение:) Можно было бы, конечно, и без числа, но лучше будет, если интерпретатор сам распорядится ошибочным вводом =)

var a: integer;
    b: string;
begin
     readln(a);
     b := inttostr(a);
     writeln(length(b));
end.