Напишите программу, которая в последовательности натуральных чисел
определяет определяет сумму всех чисел, кратных 16 и неоканчивающихся на 4
Программа получает на вход натуральные числа, количество введённых чисел
неизвестно, последовательность чисел заканчивается числом 0
var
a,sum:integer;
begin
sum:=0;
readln(a);
if a=0 then
begin
writeln('Пустая последовательность');
exit;
end
else
repeat
if (a mod 16=0) and (a mod 10<>4)
then sum:=sum+a;
readln(a);
until a=0;
writeln('Sum: ',sum);
end.