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

Var
    i, s: integer;
    p: longint;

begin
    p := 1;
    for i := 20 to 35 do
        if i mod 2 = 0 then p := p * i
        else s := s + i;
    writeln(s, , p);
end.