ISBN号码

前言
刘嘟嘟，嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟嘟，刘嘎嘎，嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎嘎。童鞋们好，嘟嘟老师又回来了!今天讲一道暴力题——ISBN号码。
题目描述
每一本正式出版的图书都有一个ISBN号码与之对应，ISBN码包括9位数字、1位识别码和3位分隔符，其规定格式如“x-xxx-xxxxx-x”，其中符号“-”是分隔符（键盘上的减号），最后一位是识别码，例如0-670-82162-4就是一个标准的ISBN码。ISBN码的首位数字表示书籍的出版语言，例如0代表英语；第一个分隔符“-”之后的三位数字代表出版社，例如670代表维京出版社；第二个分隔之后的五位数字代表该书在出版社的编号；最后一位为识别码。
识别码的计算方法如下：
首位数字乘以1加上次位数字乘以2……以此类推，用所得的结果mod 11，所得的余数即为识别码，如果余数为10，则识别码为大写字母X。例如ISBN号码0-670-82162-4中的识别码4是这样得到的：对067082162这9个数字，从左至右，分别乘以1，2，…，9，再求和，即0×1+6×2+……+2×9=158，然后取158 mod 11的结果4作为识别码。
你的任务是编写程序判断输入的ISBN号码中识别码是否正确，如果正确，则仅输出“Right”；如果错误，则输出你认为是正确的ISBN号码。
输入
输入文件isbn.in只有一行，是一个字符序列，表示一本书的ISBN号码（保证输入符合ISBN号码的格式要求）。
输出
输出文件isbn.out共一行，假如输入的ISBN号码的识别码正确，那么输出“Right”，否则，按照规定的格式，输出正确的ISBN号码（包括分隔符“-”）。
样例输入1
0-670-82162-4
样例输出1
Right
样例输入2
0-670-82162-0
样例输出2
0-670-82162-4
思路
此题直接暴力模拟，直接干，一步一步暴力，很水。就按找题目要求做就行了。错了的童鞋看看每个数要乘的数和对应的数有木有搞错就行了。
代码

var
        x,y:string;
        a,i,b,s:longint;
begin
        assign(input,'isbn.in');reset(input);
        assign(output,'isbn.out');rewrite(output);
        readln(x);
        for i:=1 to 11 do
        begin
                if x[i]<>'-' then
                        y:=y+x[i];
        end;
        for i:=1 to 9 do
        begin
                val(y[i],a);
                b:=b+a*i;
        end;
        val(x[13],a);
        if (b mod 11=a)or((b mod 11=10)and(x[13]='X')) then
        begin
                writeln('Right');
        end
        else
        begin
                delete(x,13,1);
                if b mod 11<>10 then
                begin
                        str(b mod 11,y);
                        x:=x+y[1];
                end
                else
                begin
                        x:=x+'X';
                end;
                writeln(x);
        end;
        close(input);
        close(output);
end.