Составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10. в pascalabc

Program ;
var
A: array [-10..10] of integer;
n, i, b, c : integer;
begin
    writeln('Введите количество чисел');
    readln(n);
    b:=0;
    for i := 1 to n do
        readln(A[i]);
    b:=0;
    c:=1;
    for i := 1 to n do
    begin
        if A[i] mod 2 = 0 then
            b:=b+A[i]
        else
            c:=c*A[i]
    end;
    writeln('Это произведение ' , c);
    writeln('Это сумма ' , b);
end.