Найти количество элементов массива, значения которых кратны 3 и 5

Спасибо большое

var a:array[1..10] of integer;i,k:integer;beginfor i:=1 to 10 do beginwrite(i,'-й элемент: ');readln(a[i]);end;k:=0for i:=1 to 10 doif a[i] mod 3 = 0 and a[i] mod 5 = 0 thenk:=k+1; {если кратно и 3, и 5 одновременно, то and. Если или 3, или 5, то or}writeln(k,' элементов');end.