Определить произведение элементов последовательности - Pascal ABC

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

элементы кратные 7 положительные, а элементы кратные 3 отрицательные. Остальные не входят. элементы вводим сами

program proz;
var 
i, n:integer;
a,s:real;
begin
readln(n);
s:=1;
while i<=n do
begin
readln(a);
if a mod 7=0 then
s:=s*a else
if a mod 3=0 then 
s:=s*a*(-1)

Решение задачи: «Определить произведение элементов последовательности»

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

program proz;
var 
i,n,a:integer;
s:real;
begin
readln(n);
s:=1;i:=1;
while (i<=n) do
begin
readln(a);
if (a mod 7=0)and(a>0) then
s:=s*a;
if (a mod 3=0)and(a<0) then 
s:=s*a;
i:=i+1;
end;
write(s);
end.

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

В данном коде на языке Pascal ABC происходит чтение числа n от пользователя, инициализация переменных i, n, a: integer; s: real; и начало цикла while, который выполняется n раз. Внутри цикла происходит чтение числа a от пользователя, проверка его остатка от деления на 7 (равенство 0) и на 3 (меньше 0), а затем умножение числа a на переменную s. После этого значение переменной i увеличивается на 1. В конце программы выводится значение переменной s.