На экран вывести индексы всех элементов массива с заданным значением - Pascal ABC

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

5. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Задайте возможность поиска элемента массива следующим образом: пользователь вводит с клавиатуры значение элемента, на экран выводятся индексы всех элементов массива с таким значением.

Решение задачи: «На экран вывести индексы всех элементов массива с заданным значением»

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

uses crt;
const N=1000;
var a:array [1..N] of integer; i,b,c:integer;
begin
writeln('введите, сколько чисел вы хотите ввести');
readln(b);
for i:=1 to b do begin
readln(a[i]);
end;
writeln('введите число для поиска');
readln(c);
for i:=1 to b do
if a[i]=c then write(i,' ');
end.

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

В первой строке кода используется библиотека crt, которая является стандартной библиотекой языка Pascal ABC.
В следующей строке задается константа N, которая представляет собой максимальное количество элементов, которые могут храниться в массиве. Значение N равно 1000.
Далее объявляются три переменные: i, b и c. Переменная i является счетчиком цикла, переменная b используется для хранения количества чисел, которые пользователь хочет ввести, а переменная c используется для хранения числа, которое нужно найти в массиве.
В следующей строке кода пользователю предлагается ввести количество чисел, которые он хочет ввести. Это число сохраняется в переменной b.
Затем начинается цикл for, который выполняется b раз. Внутри этого цикла пользователю предлагается ввести каждое число, которое он хочет ввести. Введенное число сохраняется в массиве a[i].
После завершения цикла for, в котором пользователь вводит числа, начинается следующий цикл for. Этот цикл также выполняется b раз. Внутри него проверяется, равно ли значение a[i] значению c. Если это так, то число i выводится на экран.
После завершения второго цикла for выводится сообщение, информирующее пользователя о том, что поиск был успешным.