Организовать цикл для ввода 7-ми чисел и подсчитать ,сколько из них делится на 9

program f1;var a: array [1..7] of integer;k,i :integer;for i:=1 to 7 do readln(a[i]);for i:=1 to 7 do if a[i] mod 9=0 then k:=k+1;writeln(k);end.