Дан массив из 10 элементов. Подсчитать сумму элементов, кратных 9

var a: array [1 ... 10] of integer; c, sum: integer; beginsum:=0; writeln ('введите элементы массива ') ; for c : = 1 to 10 do read (a[c]) ; for c : = 1 to 10 do if (a[c] mod 9) = 0 then sum:=sum+a[c]; writeln ('сумма равна = ', sum) ; end.