Паскаль

Дан целочисленный массив из 10 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести на экран сумму элементов массива, кратных 9. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого делится на 9. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

const N=10;
var a: array [1..N] of integer;
i, j, s: integer;
begin
for i:=1 to N do read(a[i]);
...
end.