Вычеслить произведение нечётных чисел на отрезке от 30 до 90

program raf105;

var

 i,pro: integer;

begin

 pro:=1;

 for i:=30 to 90 do

   if i mod 2 <> 0

     then pro:= pro*i;

 writeln('Произведение нечётных от 30 до 90: ',pro);

end.