Напишите программу в среде Pascal ABC,которая в последовательности чисел от 5 до 30 находит произведение чётных.

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

program MultiplyEvenNumbers;

var
i, product: integer;

begin
product := 1;

for i := 5 to 30 do
begin
if i mod 2 = 0 then
product := product * i;
end;

writeln('The product of even numbers from 5 to 30 is: ', product);
end.