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

Const N = 5;

var a: array [1 ... N] of integer;

sum, pr: integer;

begin

sum:=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.