`* Pascal:`

`" "`

program vieux_livre;
uses crt;
var N : ansistring;
    indi, vari, total : longint;
    quan : array [0 .. 9] of longint;
    chaine : array [0 .. 9] of ansistring;
    
begin
    clrscr;
    readln(N);
    
    for indi := 0 to 9 do 
    begin
        quan[indi] := 0;
        chaine[indi] := '';
    end;
    
    total := 0;
    for indi := 1 to length(N) do 
    begin
        quan[ord(N[indi]) - 48] := quan[ord(N[indi]) - 48] + 1;
        total := total + ord(N[indi]) - 48;
        chaine[ord(N[indi]) - 48] := chaine[ord(N[indi]) - 48] + N[indi];
    end;
    
    if total mod 3 = 0 then
    begin
        if quan[0] <> 0  then
            for indi := 9 downto 0 do
                write(chaine[indi])
        else 
            write(-1);
    end 
    else  
        write(-1);
        
    readln
end.
        
    

var s: string;
    sum, d, i, j: int64;
    c: char;
begin
    readln(s);
    sum := 0;
    d := 0;
    for i := 1 to length(s) do
    begin
        sum := sum + ord(s[i]) - ord('0');
        if s[i] = '0' then
          d := d + 1;
    end;
    if (sum mod 3 = 0) and (d <> 0) then
    begin
        for i := 1 to length(s) do
          for j := i + 1 to length(s) do
            if s[j] > s[i] then
            begin
                c := s[i];
                s[i] := s[j];
                s[j] := c;
            end;
        writeln(s);
    end
    else
    begin
      writeln(-1);
    end;
end.