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

целую программу, а то я тупая и не пойму

program mr_zerkalka;uses crt;const n=5;var a,i,p:integer;beginfor i:=1 to n doreadln(a[i]);for i:=1 to n doif a[i] mod 5 = 0 thenp:=p*a[i];writeln('произ элемент=',p);end.