Вычислить произведение элементов вектора из 7 целых чисел - Pascal ABC

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

Вычислить произведение элементов вектора из 7 целых чисел

Решение задачи: «Вычислить произведение элементов вектора из 7 целых чисел»

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

var a:array[1..7] of integer;
p:longint; i:byte; fl:boolean;
begin
cls;
p:=1;
writeln('Введи элементы вектора:');
for i:=1 to 7 do begin
write(i,' элемент = ');
readln(a[i]);
if a[i] mod 2=0 then begin
p:=p*a[i];
fl:=true;
end;
end;
if fl=false then p:=0;
writeln('Произведение элементов вектора = ',p);
end.

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

Создается переменная a типа array[1..7] of integer, что означает создание массива из 7 целых чисел.
Создается переменная p типа longint, что означает создание переменной для хранения результата.
Создается переменная i типа byte, что означает создание переменной для хранения индекса элемента массива.
Создается переменная fl типа boolean, что означает создание переменной для хранения флага, указывающего на четность числа.
Выводится сообщение Введи элементы вектора:.
Запускается цикл for, который выполняется 7 раз, начиная с 1 и заканчивая 7.
Внутри цикла выводится сообщение Введи элементы вектора:, а затем считывается число с помощью функции readln(a[i]).
Проверяется, является ли число четным, используя оператор mod 2=0. Если число четное, то выполняется операция умножения p*a[i], и флаг fl устанавливается в true.
После завершения цикла выводится сообщение Произведение элементов вектора =, и результат вычисления подставляется в переменную p.
Если флаг fl равен false, то значение переменной p устанавливается в 0.
Выводится итоговое сообщение с результатом вычисления.