Вывести на экран четные элементы массива;рассчитать и вывести их произведение.СРОЧНО!!!ДАЮ 40 БАЛЛОВ!!!!!

const nmax=50;var a:array[1..nmax]of integer;i,n,sum:integer;beginreadln(n);//количество элементов массиваsum:=1;for i:=1 to n dobeginwriteln('Введите ',i,' элемент массива');readln(a[i]);end;for i:=1 to n doif a[i] mod 2= 0 thenbeginsum:=a[i]*sum;write(a[i],' ');end;writeln('sum:',sum);end.