Помогите пж очень нужно

Question

Помогите пж очень нужно

---

Answer 1

K:=0;
for j:=1 to N-1 do
begin
if( (a[j] * a[j+1]) mod 2 <>0) and ((a[j]+a[j+1]) mod 5 <> 0))
k:=k+1;
end;
writeln(k);