Даны n чисел а1, а2, ...ai,... аn. n ≤ 100. Найти их произведение. Нули не умножать - Pascal

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

Даны n чисел а1, а2, ...ai,... аn. n ≤ 100. Найти их произведение. Нули не умножать.

Решение задачи: «Даны n чисел а1, а2, ...ai,... аn. n ≤ 100. Найти их произведение. Нули не умножать»

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

uses crt;
type
   mas = array[1..100] of integer;
var
   a: mas;
   i,n,p: byte;
 
begin
  writeln('Введите n');
  readln(n);
  writeln('введите элементы массива');
  for i:=1 to n do 
    readln(a[i]);
  p := 1;
  for i:=1 to n do
    if a[i]<>0 then
      p:=p*a[i];
  write('Произведение = ',p);
  
end.

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

Объявление переменных:
- a - массив для хранения чисел
- i, n, p - переменные для управления циклом и хранения значения
Ввод значения n с помощью функции readln
Ввод элементов массива с помощью цикла for и функции readln
Инициализация переменной p единицей
Цикл по всем элементам массива для вычисления произведения
- Проверка на ноль, чтобы не умножать на ноль
- Умножение текущего элемента на значение переменной p
Вывод результата с помощью функции write и конкатенации строк