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

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