Trong một cuốn sách cổ có ghi lại rất nhiều các con số bí ẩn mà chúng có mối liên hệ với 30. Sau một thời gian nghiên cứu các chuyên gia đã tìm được cách giải mã các số đó: hoán vị các chữ số của số bí ẩn đó để thu được một số là bội số lớn nhất của 30. Yêu cầu: Hãy viết chương trình giúp các chuyên gia giải mã các con số bí ẩn đó. sử dụng ngôn ngữ pascal cứu emmmmmmmmm

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.