program z1;
var a,s: longint;
begin
write ('Введите число: ');
readln(a);
s:=0;
repeat
if (a mod 10 mod 2 = 1) and (a mod 10 mod 3 = 0) then s:=s+a mod 10;
a:=a div 10
until a=0;
if s = 0 then write('NO')
else writeln(s)
end.
