Program Primer;
var a, s: integer;
begin
s:= 0;
readln\(a\);
while a<>0 do begin
if \(a mod 6 = 0\) or \(a mod 10 = 6\) then
s := s + a;
readln\(a\);
end;
writeln\(s\);
end.
Какое число получится, если ввести ряд чисел 46, 12, 16, 66, 11, 0?