Например, первые 84 цифры последовательности выглядят так:
11212312341234512345612345671234567812345678912345 6789101234567891011123456789101112.
var
k, i, n, m, r: integer;
begin
readln(n);
repeat
inc(k);
for i := 1 to k do
begin
r := i;
repeat
r := r div 10;
inc(m);
until r = 0;
if m = n then
begin
writeln;
writeln(i);
break;
end;
end;
until n = m;
readln;
end.