program ISBN(input,output);

var

a:array[1..20] of integer;

s:string[50];

i,k,n:integer;

begin

readln(s);

n:=0;

k:=1;

for i:=1 to 11 do

begin

if ('0'=s[i]) then

begin

n:=n+(ord(s[i])-ord('0'))*k;

k:=k+1;

end;

end;

if s[13]='X' then

if n mod 11=10 then writeln('Right')

else begin

s[13]:=chr(n mod 11+48);

writeln(s);

end

else

begin

if n mod 11=ord(s[13])-48 then writeln('Right');

if n mod 11=10 then

if s[13]='X' then writeln('Right')

else begin

s[13]:='X';

writeln(s);

end;

if n mod 11ord(s[13])-48 then begin

s[13]:=chr(n mod 11+48);

writeln(s);

end;

end;

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案正确... 0ms