Для любого целого 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.

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