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

var i, s, pr: integer; begin   s:=0;   pr:=1;   for i:=1 to 10 do     begin       if i mod 2=1 then pr:=pr*i;       if i mod 2=0 then s:=s+i;     end;   writeln('Произведение нечетных чисел: ',pr, ', сумма четных чисел: ', s); end. А вообще это элементарное задание. Неужели вам не объясняли, как такие делать?