Найти произведение всех нечетных чисел от 150 до 300

var

i, s : integer; / / объявляем две переменные целочисленного типа.

begin

s:=1;

for i : = 150 to 300 do / / начало цикла.

begin

if (i mod 2) > 0 then / / проверяем четность числа.

s:=s * i; / / считаем произведение, если число нечетное.

end;

writeln ('Произведение всех нечетных чисел от 150 до 300 равно : ', s); / / вывод строки на экран.

end.