Найти произведение всех положительных элементов массива - Turbo Pascal

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

дан массив имеющий 30 эл, заполнен случайными числами в числовом промежутке от 50 до 100,найти произведение всех положительных чисел

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

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

p:=1;
kp:=0;
for i:=1 to n do
 if a[i]>0 then
  begin
    p:=p*a[i];
    inc(kp);
  end;
if kp<>0 then
 writeln(p)
else
 writeln('Нет положительных.');

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

Переменная p инициализируется значением 1.
Переменная kp инициализируется значением 0.
Запускается цикл for, который проходит по всем элементам массива a от 1 до n.
Внутри цикла проверяется условие if a[i]>0 then. Если элемент a[i] больше 0, то выполняется следующая часть условия:
- Переменная p перемножается с текущим элементом a[i].
- Переменная kp инкрементируется.
Если условие if kp<>0 then истинно, то выводится значение переменной p.
Если условие if kp<>0 then ложно, то выводится строка 'Нет положительных.'.