Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных6 и оканчивающихся на6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает100. Введённые числ

Program n1;var a,sum: integer;beginreadln(a);sum:=0;while (a<>0) dobeginif(a mod 6=0) and (a mod 10=6) then sum:=sum+a;readln(a);end;writeln(sum); end.