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

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