{
TASK:money
LANG:PASCAL
}
var c,z:char;
    a:array[1..80]of 0..9;
    br,code:integer;
    sum:longint;
    s,s1:string[80];
function compare(d,d1:string):integer;
var i:integer;
 begin
  for i:=1 to length(d) do
   if(d[i]<d1[i]) then
    begin
     compare:=-1;
     break;
    end
    else if(d[i]>d1[i]) then
          begin
           compare:=1;
           break;
          end;
 end;
begin
z:='-';
while (c<>'#')  do
 begin
  read(c);
  if(c<'0') or (c>'9')then
   begin
    if(compare(s,s1)=1)and(length(s)>length(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.