№2
var Proizv: LongInt; n, i: Integer;begin Proizv:=1; write('N: '); readln(n); for i:=1 to n do if odd(i) then Proizv:=Proizv * i; writeln('Произведение (for): ', Proizv); Proizv:=1; i:=1; while i <= n do begin if odd(i) then Proizv:=Proizv * i; i:=i + 1; end; writeln('Произведение (while): ', Proizv); Proizv:=1; i:=1; repeat i:=i + 1; if odd(i) then Proizv:=Proizv * i; until (i = n); writeln('Произведение (repeat): ', Proizv);end.