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

program cc(input,output);
var
s:string;
a,b,c,d,e,f,g,h,i,k:integer;
x:char;
begin
assign(input,'isbn.in');
assign(output,'isbn.out');
reset(input);
rewrite(output);
readln(s);
a:=ord(s[1])-ord('0');


  b:=ord(s[3])-ord('0');
  c:=ord(s[4])-ord('0');
  d:=ord(s[5])-ord('0');


  e:=ord(s[7])-ord('0');
  f:=ord(s[8])-ord('0');
  g:=ord(s[9])-ord('0');
  h:=ord(s[10])-ord('0');
  i:=ord(s[11])-ord('0');
k:= (a*1+b*2+c*3+d*4+e*5+f*6+g*7+h*8+i*9) mod 11;


if k=10 then x:='X' else x:=chr(k+ord('0'));
if x=s[13] then write('Right')
else
begin
write(copy(s,1,12));
write(x)
end;
close(input);
close(output);
end.