Снаписанием программы в pascal. напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 5. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число – сумму чисел, кратных 5.
n, sum, i, a: integer;
begin
read(n);
sum = 0;
for i := 1 to n do
begin
read(a);
if (a mod 5 = 0) then
sum := sum + a;
end;
write(sum);
end.