{
TASK:money
LANG:PASCAL
}
var c,z:char;
    a:array[1..80]of 0..9;
    br,code:integer;
    sum:longint;
    s,s1:string[80];
begin
while (c<>'#')  do
 begin
  read(c);
  if(c<'0') or (c>'9')then
   begin
    if((s>s1)and(sum mod 3=0)) then
    s1:=s;
    s:='';
    br:=0;
    sum:=0;
   end;

  if(c>='0') and(c<='9')then
   begin
    br:=br+1;
    s:=s+c;
    val(c,a[br],code);
    sum:=sum+a[br];
   end;
 end;
 if(s1='') then write('No')
  else write(s1);
end.