Для любого целого k обозначим количество цифр в его десятичной записи через n(k). дано натуральное число m. вычислить: нужно написать код для паскаля!

Var x: real;
    i, j, m: integer;
function N(i: integer): integer;
begin
     result := length(inttostr(i));
end;
begin
     readln(m);
     for i := 1 to m do
         x := x + N(i)/sqr(i);
     writeln(x);
end.

Я не совсем понял про "количество цифр в десятичной записи", но, если неправильно сделал, легко исправить, напишите мне =)