Составить программу вычисления суммы четных чисел и произведение…

Паскаль. program jjj; var a: array [1… 10] of integer; i,summa,proizv: integer; beginfor i: =1 to 10 do begin Writeln ('напишите элемент массива номер ',i); read (a[i]); end; For i: =1 to 10 do begin if a[i] mod 2=0 then summa: =summa+a[i] else if (a[i] <= 10) and (a[i]>=1) then proizv: =proizv*a[i]; end; Writeln (summa,',proizv); readln; end. Жирным — это то, что я добавил)