readln(x);
s:=0;
 while i<=x do
  begin
  s:=s+3;
  str(s,s1);
  i:=i+length(s1);
  end;

const n=100;
var
  x:array[1..n] of longint;
  i:byte;
begin
  x[1]:=369121518;
  for i:=2 to n do
    x[i]:=x[i-1]+3;
  readln(i);
  writeln(x[i]);
  readln;
end.

функция 1: int GetFigureNumById(int id) // "формулу, чтобы на входе мы принимали индекс числа, скажем, пятое, а на выходе получали число цифр у него."
{
//реализация зависит от формулы заполнения
}

функция 2: int GetNumberById(string s, int id) // вот она будет давать нам результат - число по его номеру в массиве (не путать с индексом)
{
int i=0 // настоящая ячейка (т.е. по цифрам)
int idx=0 // ячейка по числам (т.е. прыгаем между числами, а не цифрами)
int len = //ну типа длина строки в ячейках
while(i<len) { // пока не дошли до конца
  if(idx < id) { // если номер текущего числа меньше того, которое надо извлечь
    i = i + GetFigureNumById(idx) // прибавляем кол-во цифр у текущего числа
    idx = idx + 1 // двигаемся к след. числу
  } else { // пришли к тому числу, которое надо
    //просто отсчитываем от i до GetFigureNumById(idx) и получаем диапазон цифр (в строке), которые принадлежат именно нужному числу idx 
    // и возвращаем его как уже нормальное число
  }
}
return 0 //на всякий случай..
}