Напишите программу, которая в последовательности натуральных чисел
определяет сумму всех чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: сумму
всех чисел, кратных 5.
program dsa;
var
i,s : integer;
begin
i := 1;
s := 0;
while i <> 0 do
begin
read(i);
if i mod 5 = 0 then
s := s + i;
end;
write(s);
end.