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

var i, sum:integer;proz:longint;beginfor i:=10 to 26 dobeginif i mod 2 = 0 then sum:=sum+i else if i mod 2 <>0 then proz:=proz*i;end;writeln('summa=',sum);writeln('proizvedenie=',proz);end.