Дан целочисленный массив из 10 элементов. Напишите программу, которая находит количество пар элементов массива, в которых хотя бы одно число делится на 3, под парой подразумевается два идущих подряд массива. Например : 6;2 ;9;-3;6. Ответ :4. работа в паскаль, помогите плиз

вот, проверь в компиляторе если надо

извиняюcь за то что долгоprogram z1;var a:array[10];k,i:integer;begink:=0;readln(a);for i:= 1 to 9 doif (a[i] mod 3 =0) or (a[i+1] mod 3 = 0) then k:=k+1;end;writeln(k);end.