Решить по паскалю. дан целочисленный массив из 30 элементов,элементы массива могут принимать значения от 0 до 100.напишите эффективную программу которая позволит найти и вывести на печать сумму элементов делющихся на 5 без остатка.известно,что в массиве есть хотябы один элемент делящийся на 5 без остатка
Begin
sum := 0;
readln(n);
for i := 1 to n do begin
read(a);
if a mod 5=0 then sum := sum + a;
end;
writeln(sum);
End.