Вычислить произведение нечетных чисел от 1 до 99Среда Паскаль ​

:

var i:integer;

p:real;

begin

p:=1;

for i:=1 to 99 do

if i mod 2 <> 0 then p:=p*i;

writeln(p)

end.