Дан массив целых чисел. Найти сумму ЧЕТНЫХ элементов и ПРОИЗВЕДЕНИЕ элементов, которые оканчиваются на цифру 5.

Program mr_zerkalka;
uses crt;
const n=5;
var a,i,p:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 5 = 0 then
p:=p*a[i];
writeln(произ элемент=,p);
end.