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

упс, не то

вот верный ответ:

vari,s,p:integer;beginp:=1; s:=0;for i:=1 to 10 dobeginif i mod 2 = 0 then s:=s+i else p:=p*i;end;readln(s,' ',p);end.

const   N = 10;   var   a, S1, S2: Integer;   i, Q1, Q2: Byte;   begin   S1 := 0; Q1 := 0;   S2 := 0; Q2 := 0;  writeln('Введите ', N, ' чисел:');   for i := 1 to N do begin     read(a);     if a < 0 then begin      S1 := S1 + a;       inc(Q1)     end;     if a > 0 then begin       S2 := S2 + a;       inc(Q2)     end;   end;   writeln;   if Q1 > 0 then begin     writeln('Сумма отрицательных чисел: ', S1);     writeln('Количество отрицательных: ', Q1)   end   else writeln('Отрицательных нет');   if Q2 > 0 thenbegin     writeln('Сумма положительных чисел: ', S2);     writeln('Количество положительных: ', Q2)   end   else writeln('Положительных нет') end.