if (N mod 2) = 0 then ...
if (N mod 3) = 0 then ...

if (N div 2)=(N/2) then ...

program HelloProgram;

var
  A: array [1..30] of integer ;
  i, rezult: integer;

begin
  
  rezult := 1;
  for i := 1 to 30 do
    begin 
      readln(a[i]);
      if a[i] > 0 then rezult := rezult * a[i];
    end;
  
  writeln(rezult);
end.

    program HelloProgram;
    var
      A: array [1..30] of integer ; //це масив чисел на 30 елементів
      i, rezult: integer; //i - лічильник, він потрібен для арифметичного циклу
      //rezult - тут накопичуватимемо добуток елементів масиву
    begin
      rezult := 1; //ініціалізація початковим значенням
      for i := 1 to 30 do //цикл, який спрацює 30 разів, кожного разу значення "i" збільшуватиметься на одиницю
        begin 
          readln(a[i]); //зчитуємо черговий елемент масиву з консолі
          if a[i] > 0 then //якщо він додатній, то
            rezult := rezult * a[i]; //множимо його на добуток попередніх елементів
                                     //і записуємо нове значення назад у rezult
        end;
      //цикл закінчився
      writeln(rezult); //виводимо добуток усіх додатніх елементів
    end.