Проредить последовательность чисел по заданному условию. - Free Pascal

Формулировка задачи:

короче n-это любое число может быть m- тоже и надо сократить эти числа сначала на нечетных потом на четных а потом опять на нечетных четных, до одного числа например останется 4. например берем числа 3 и 7 вместо n и m от 3 до 7 пишем числа 3 4 5 6 7 нечетные сокращаю сначала останется 4 6 "4 6" видим как "1 2" и сокращаем четные тогда останется только 1 , а это 4 . а в моем случае надо от 1 до 1000000 чисел так сделать

Решение задачи: «Проредить последовательность чисел по заданному условию.»

Листинг программы

var
s:longint;
begin
s:=2;
while s<1000000 do
s:=s*4-2;
s:=(s+2)div 4;
writeln(s);
end.

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Переменная s инициализируется значением 2.
Запускается цикл while, который выполняется до тех пор, пока значение переменной s меньше 1000000.
Внутри цикла значение переменной s умножается на 4 и вычитается 2.
После цикла значение переменной s делится на 4 и к результату прибавляется 2.
Результат выводится на экран с помощью функции writeln. Таким образом, код выполняет прореживание последовательности чисел, увеличивая каждое число на 2, после чего выполняется операция деления на 4.