Дан массив из пяти чисел, найдите сумму чисел кратных пяти и чётных и произведение остальных чисел. Язык паскаль. Помогите !

const N = 5;var a: array [1..N] of  integer;sum, pr: integer;beginsum:=0; pr:=1;for var i:=1 to N do begin  read(a[i]);  if (a[i] mod 5=0) and (a[i] mod 2=0) then sum+=a[i]  else pr*=a[i]end;println(sum, pr);end.