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

uses crt;
var
a,sm,pr,n,i: integer;
begin
clrscr;
sm:=0;pr:=1;
n:=10;
for i:=1 to n do
begin
    readln(a);
    if odd(a) then pr:=pr*a;
    if not odd(a) then sm:=sm+a;
end;
writeln('Сумма чётных чисел=',sm,' ; Произведение нечётных чисел=',pr);

end.