PASCAL В одномерном целочисленном массиве из n - элементов, вычислить сумму элементо?

Program xxx; var a,b,i,n:integer; begin b:=0; read(n); for i:=1 to n do begin read(a) if a mod 5=0 then begin b:=b+a; end; end; write(b); end.