Дан одномерный массив из 30 элементов, составить программу для подсчета произведения четных элементов этого массива.

program z1;var A:array[1..30] of integer;i,k:integer;begink:=1;for i:=1 to 30 do begin write('a[',i,']=');read(a[i]);end;for i:=1 to 30 do if a[i] mod 2=0 thenk:=a[i]*k;writeln(k);end.