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

var
i,sm,pr,n:integer;
begin
readln(n);
pr:=1;sm:=0;
i:=0;
repeat
i:=i+1;
if odd(i) then sm:=sm+i
else pr:=pr*i;
until  i=n;
writeln('sm=',sm);
writeln('pr=',pr);

end.