Question

как создать программу для вычисления определённого числа

Answer 1

var
  i: integer;
begin
  readln(i);
  writeln(Length(IntToStr(i)));
end.