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

Program llllll;
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.