Дан массив из 10 частей. 1. Отыскать сумму чётных частей 2.Отыскать

program zz1;
var mas:array[1..10] of integer;
i,s,p,k:integer;
begin
for i:=1 to 10 do //получаем начальный массив случайным образом от 1 до 10
mas[i]:=random(10)+1;
for i:=1 to 10 do //выводим исходный массив на экран
write(mas[i], );
for i:=1 to 10 do //высчитываем сумму четных элементов
if mas[i] mod 2 =0 then s:=s+mas[i];
writeln; //перебегаем на новейшую строчку для вывода
writeln(сумма четных элементов=,s);
p:=1; //задаем начальное значение для творения
for i:=1 to 10 do
if i mod 2 lt;gt;0 then p:=p*mas[i];
writeln(творение частей стоящих на нечетных местах=,p);
for i:=1 to 10 do
if mas[i]gt;3 then k:=k+1;
write(количество элементов великих трем=,k);
end.