Помогите с задачей, пожалуйста… Дан массив из 15 элементов, сгенерированных…

const n=15; var a: array[1… n] of integer; i: byte; begin for i: =1 to n do begin a[i]: =random (121) — 40; write (a[i], '); end; writeln; for i: =1 to n do if (a[i] mod 2=0) and (a[i] mod 10=4) or (a[i]=4) or (a[i]=-4) then write (a[i], '); end.