Помогите с информатикой, пожалуйста

Program Nailya; var a: array [1..10] of integer; c, n: integer; begin write('элементы массива? '); for c := 1 to 10 do read(a[c]); for c := 1 to 10 do if (a[c] mod 3) = 0 then inc(n); write('кратных трем: ', n); end. Удачи!