составить программу вычисления суммы чётных чисел и произведение нечётных чисел от 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.

А вообще это элементарное задание. Неужели вам не объясняли, как такие делать?