Написать программы в паскале! №1 произведение целых чисел №2 сколько нечетных среди n введенных? заранее

№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.