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

var  i, n,s,p: integer;beginwrite('Введите число: ');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.