<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
0) Начало
1) Ввод массива B(n) //n - количество элементов массива
2) Объявляем пустой массив C(n)
3) k = 1
4) Цикл по i от 1 до n
4.1) Если условие А истинно, то
4.1.1) C(k) = i // Выносим номер элемента в новый массив
4.1.2) k = k+1 // Переходим к следующему элементу в массиве С.
4.1.3) Конец Если
4.2) Конец Цикла
5) Вывод сформированного массива C(k)
6) Конец