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

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