Найти сумму четных и произведение не четных чисел в промежутке от 1 до n

Var  i, n,s,p: integer;
begin
write('Введите число: ');
readln(n);
p:=1;
for i := 1 to n do
    if i mod 2=0 then s:=s+i
      else p:=p*i;
writeln('Сумма четных: ',s,'; произведение нечетных: ',p)
end.