Пожалуйста, помогите написать программки в Паскале!1Произведение целых чисел2Сколько

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 lt;= 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.