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

я решила уже сама 10 ноября 2016

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.