Подсчитайте в одномерном...

Подсчитайте в одномерном массиве A{10} количество элементов делящихся на 3 безостатка.

 

Uses crt;
var a, b, x1, x2, x3, c, n, d, i, g :integer;   
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Введите размер массива');
readln (n);for i:=1 to n do 
   begin
   writeln ('Введите s[', i, '] элемент'); 
   readln (s); a:=s; if (a mod 3 = 0) then inc(c); 
   end;
writeln ('Количество чисел кратных 3 = ', c);
end.

P.S. Надеюсь на благодарность и лучший ответ.