Вычисление значения выражения на основе элементов массива - Pascal

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

Массив B(1:3) – целый. Какому элементу массива равна величина D? D = a + a² + a³ (a – целая величина).

Решение задачи: «Вычисление значения выражения на основе элементов массива»

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

var b: array [1..3] of integer;
    i, n, a, d: integer;
begin
  writeln('Введите элементы массива:');
  for i := 1 to 3 do
    begin
      write('B[', i, '] = ');
      readln(b[i])
    end;
  writeln;
  write('a = ');
  readln(a);
  d := a + a * a + a * a * a;
  write('D = ', d);
  n := 0;
  for i := 1 to 3 do
    if d = b[i]
      then begin
        n := i;
        break
      end;
  if n = 0
    then write(', не равно ни одному элементу массива')
    else write(' = B[', n, ']');
  readln
end.

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

Создается переменная b типа array [1..3] of integer, что означает создание массива из 3 целых чисел.
Затем определяются переменные i, n, a и d типа integer.
Выводится сообщение Введите элементы массива:, чтобы пользователь мог ввести значения для массива b.
С помощью цикла for происходит чтение значений массива b с индексами от 1 до 3.
В блоке begin для каждого индекса i выполняется запись сообщения B[, i, ] = и значение, введенное пользователем.
После чтения всех значений массива b выводится сообщение a = и значение переменной a, которое было введено пользователем.
Затем вычисляется значение d как сумма квадратов всех элементов массива b.
Выводится сообщение D = и значение переменной d.
Затем определяется переменная n равная 0.
С помощью цикла for происходит проверка каждого элемента массива b.
Если значение d равно значению элемента массива b с индексом i, то значение n устанавливается равным i и цикл прерывается командой break.
Если после проверки всех элементов массива значение n остается равным 0, выводится сообщение не равно ни одному элеменменту массива.
Если значение n не равно 0, выводится сообщение = B[, n, ].