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?​