Напишите программу, которая в последовательности целых чисел вычисляет сумму всех чисел, кратных 5 или 9. программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30 000. программа должна вывести одно число: сумму всех чисел, кратных 5 или 9.
var a,b:integer;
beginwriteln('введите числа окончив последовательность нулём');
readln(a);
b:=0;
while (a<>0) do beginif
((a mod 5 = 0) or (a mod 9 = 0)) then
b:=b+a;
readln(a);
end;
writeln('ответ ' ,b);
end.