Нужна программа на паскале с циклом параметраfor

помогите пожалуйста нужна программа на паскале с циклом параметра(for)

  • program z;
    var n,s,s1,i:integer;
    begin s:=1; s1:=1; s1:=1;
    write(‘n=’); read(n);
    for i:=1 to n do
    begin
    if i mod 2 =0 then s:=i*s;
    if i mod 2 <> 0 then s1:=i*s1;
    end;
    write(‘произведение четных = ‘,s, ‘ произведение нечетных = ‘,s1);
    end.
  • var n,f,i:integer;
    begin
      readln (n);
      f:=1;
      for i:=1 to n do
        if ((n mod 2 = 1) and (i mod 2 = 1)) or 
           ((n mod 2 = 0) and (i mod 2 = 0)) then f:=f*i;
      writeln (f);
    end.