Массивы( 4. Найти все элементы кратные 3 или 5. Сколько их? 5. Найти количество всех четных элементов массива, стоящих на четных местах, то есть имеющих четные номера. Помогите решить

Не знаю, какой язык нужен, так что пусть будет паскаль. В обоих случаях предполагается, что есть заполненный массив A с индексами от 1 до n. i - целочисленная цикловая переменная. k - целочисленная переменная, куда записывается ответ 4) k := 0; for i := 1 to n do if (A[i] mod 3 = 0) or (A[i] mod 5 = 0) then begin write(A[i],' '); {вывод на экран - т.к. требуется найти элементы} k := k + 1 {элемент учитывается в счетчике} end; writeln; write(k) {количество таких элементов} 5) k := 0; for i := 1 to n do if (A[i] mod 2 = 0) and (i mod 2 = 0) then k := k + 1; write(k)