В диапазоне от 1 до N найти произведение четных и сумму нечетных чисел — Pascal(Паскаль)

var n,i,s,p:Longint;
begin
    write('n=');
    readln(n);
    s := 0;
    p := 0;
    for i := 1 to N do begin
        if i mod 2 = 0 then p := p * i
        else s := s + i;
    end;
    writeln('sum of odd =', s);
    writeln('proizv of even =', p);
end.