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

Var i, sum:integer;
proz:longint;
begin
for i:=10 to 26 do
begin
if 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.