Cho một số nguyên dương N, người ta áp dụng phép biển đổi số N theo nguyên tắc sau: 1) Nếu chữ số đầu tiên của N chia hết cho 3 thì xóa bỏ chữ số đầu tiên của N. 2) Nếu không thoả mãn điều kiện (1) trên và nếu chữ số cuối cùng của N chia hết cho 3 thì xóa bỏ chữ số cuối cùng của N. 3) Nếu không thỏa mãn cả 2 điều kiện trên và nếu tổng chữ số đầu tiên và chữ số cuối cùng của N chia hết cho 3 thì xoá bỏ chữ số đầu tiên và chữ số cuối cùng khỏi số N; Các phép biến đổi trên được áp dụng vào số N ban đầu cho tới khi N rỗng hoặc không đáp ứng cả 3 điều kiện trên. Dữ liệu vào: Số nguyên dương N (N có không quá 17 chữ số) Kết quả: Một số nguyên là kết quả của phép biến đổi số N. Trong trường hợp N rỗng thì in ra -1 Ví dụ: Dữ liệu vào Kết quả 322847 8 24573 -1

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var s : string; 
    function int_(c:char):integer;
            var tg : integer;
         begin
        val(c,tg);
        exit(tg);
         end ;
    function len(s:string):integer;
         begin
        exit(length(s));
         end ;
    function check(s:string):string;
         begin
        if len(s) <> 0 then exit(s);
        exit('-1');
         end ;
begin
    readln(s);
    while true do
         begin
        if int_(s[1]) mod 3 = 0 then delete(s,1,1)
        else if int_(s[len(s)]) mod 3 = 0 then delete(s,len(s),1)
        else if (int_(s[1]) + int_(s[len(s)])) mod 3 = 0 then
             begin
            delete(s,1,1);
            delete(s,len(s),1);
             end 
        else break;
        if len(s) = 0 then break;
         end ;
    write(check(s));
end .

uses crt;
var s:string;
begin
clrscr;
readln(s);
while true do
begin
 if (ord(s[1])-48) mod 3=0 then delete(s,1,1)
 else
  if (ord(s[length(s)])-48) mod 3=0 then delete(s,length(s),1)
  else
   if ((ord(s[1])-48)+(ord(s[length(s)])-48)) mod 3=0 then
   begin
    delete(s,1,1);
    delete(s,length(s),1);
   end
   else
    break;
 if s='' then break;
end;
if s='' then write(-1) else write(s);
readln
end.