Составление алгоритма ввести натуральное число и выписать в строку все числа от одного до этого числа. надо составить все и с другого пользователя тоже

Var i,n : integer; begin   readln(n);   for i: =1 to n do write(i,' '); end.

169 Получается путем умножения каждой цифры на основание системы в степени

10 -> 2

2018 / 2 = 1009. Остаток 0.
1009 / 2 = 504. Остаток 1.
504 / 2 = 252. Остаток 0.
252 / 2 = 126. Остаток 0.
126 / 2 = 63. Остаток 0.
63 / 2 = 31. Остаток 1.
31 / 2 = 15. Остаток 1.
15 / 2 = 7. Остаток 1.
7 / 2 = 3. Остаток 1.
3 / 2 = 1. Остаток 1.

Берём ответ последнего деления и идём по остаткам от конца до начала.
11111100010

2 -> 16

От конца берём по 4 цифры и считаем их значение по заранее составленной таблице.
[111][1110][0010] = [7][14][2] = 7E2

16 ->10

Нумеруем цифры от конца до начала индексами в порядке возрастания, начиная от 0, впоследствии каждую цифру нужно умножить на порядок той системы счисления, из которой производится перевод (16), возведённой в степень, равную индексу, и всё сложить.
7E2 = [7][14][2] = 7 * 16^2 + 14 * 16^1 + 2 * 16^0 = 1792 + 224 + 2 = 2018

75 так как 300:4 =75

в дано не понял что писать