Найти произведение всех нечетных чисел от 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.