Составить программу в PASCAL. 1. В последовательности чисел подсчитать произведение чисел, кратных 3.

Предыдущий
вопрос Следующий
вопрос

program MultiplicationOfNumbersDivisibleByThree;

var
num, product: integer;
i, n: integer;

begin
product := 1;

write('Enter the number of elements in the sequence: ');
readln(n);

writeln('Enter the numbers in the sequence:');

for i := 1 to n do
begin
readln(num);
if num mod 3 = 0 then
product := product * num;
end;

writeln('The product of numbers divisible by 3 is: ', product);

end.