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