Найти проищведение чётных чисел в диапозоне от 30 до 50. Паскаль. Для 9 класса (без массивов)

program zz1;

var i, s: integer; / / задаем переменные целого типа

begin

s: = 1; / / задаем начальное значение для переменной произведения

for i:=30 to 50 do / / организуем цикл, в котором переберем все числа от тридцати до пятидесяти

if i mod 2 = 0 then s: = s * i; / / проверяем условие, если число делится на два без остатка, то умножаем это число на произведение

writeln (' произведение четных чисел в диапазоне от 30 до 50 = ', s); / / выводим ответ

end.