Дано натуральное число n. вычислите произведение нечетных натуральных чисел от 1 до n. как должна правильно выглядеть программа? ?

Program n1; var n,i: integer; p: real; begin p: =1; readln(n); for i: =1 to n do if i mod 2< > 0 then p: =p*i; write(p); end.

Const  nx = 20; mx = 20; var  x: array[1..nx, 1..mx] of integer;     i, j, n,m,q,r: integer; k: boolean;   b: array[0..nx] of integer; beginwriteln('введите число строк n '); read(n); writeln('введите число столбцов m '); read(m); b[0]: =1; if n > = m thenfor i : = 1 to n do beginb[i]: =b[i-1]*2; q: =n; endelsefor i : = 1 to m do beginb[i]: =b[i-1]*2; q: =m; end; write(b: 3);   randomize; writeln;   writeln('исходный массив');   for i : = 1 to n do begin    for j : = 1 to m do begin      x[i, j]: =random(10);       write(x[i, j]: 4);       end;     writeln;   end;   writeln; writeln;   for i : = 1 to n do begin    for j : = 1 to m do begin    for r: =0 to q do    if (i = b[r])or (j = b[r]) then k: = true;       if k = true then write(x[i, j]: 4)      else write('  ');       k: =false;     end;     writeln;   end;   end.