Запись из массива в массив только те значения, которые равны 1 или любой другой цифре - Pascal ABC

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

Как записать из 1-го массива со значениями, во 2-ой массив только те значения, которые равны 1 или любой другой цифре, и чтобы записалось в такую-же ячейку массива? Например так: А[0,1,5,6,1,7] ===>> B[0,1,0,0,1,0]

Решение задачи: «Запись из массива в массив только те значения, которые равны 1 или любой другой цифре»

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

for i:=1 to n do
if a[i]=1 then b[i]:=1 else b[i]:=0;

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

В данном коде происходит следующее:

Переменная n инициализируется значением 1.
Затем, в цикле for, переменная i принимает каждое последующее значение от 1 до n.
Внутри цикла, с помощью условного оператора if, проверяется равенство элемента массива a[i] единице.
Если условие истинно, то переменной b[i] присваивается значение 1.
Если условие ложно, то переменной b[i] присваивается значение 0.
Цикл завершается, когда i принимает значение n. Таким образом, в результате выполнения данного кода, каждый элемент массива b будет равен либо 1, либо 0, в зависимости от того, равен ли соответствующий элемент массива a единице или нет.