记录编号	51289	评测结果	AAAAAAAAAA
题目名称	[NOIP 2008]ISBN号码	最终得分	100
用户昵称	Ezoi_XY	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2012-12-18 20:08:00	内存使用	0.17 MiB

Program isbn;
  Var
    I,J,T:Integer;
    S:String;
  Begin
    Assign(Input,'isbn.in');
    Assign(Output,'isbn.out');
    Reset(Input);
    Rewrite(Output);
    Readln(S);
    T:=0;
    J:=0;
    For I:=1 To Length(S)-2 Do
      Begin
        If S[I]='-' Then Continue;
        Inc(J);
        T:=T+(Ord(S[I])-48)*J;
      End;
    T:=T Mod 11;
    If (T=10) And (S[I+2]='X') Or (S[I+2]=Chr(T+48))
       Then Writeln('Right')
       Else Begin
              For I:=1 To Length(S)-1 Do Write(S[I]);
              If T=10 Then Writeln('X')
                      Else Writeln(T);
            End;
    Close(Input);
    Close(Output);
  End.