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

const n=13;var i,s,p:integer;begins:=0; p:=1;for i:=1 to n do beginif (i mod 2 = 0) then s:=s+i;if (i mod 2 <> 0) then p:=p*i;end;writeln("Сумма четных = ",s," , произведение нечетных =",p);end.