每一本正式出版的圖書都有一個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號碼（保證輸入符合ISBN號碼的格式要求）。
【輸出格式】
輸出共一行，假如輸入的ISBN號碼的識別碼正確，那麼輸出“Right”，否則，按照規定的格式，輸出正確的ISBN號碼（包括分隔符“-”）。
【樣例輸入】
【樣例1】
0-670-82162-4
【樣例2】
0-670-82162-0
【樣例輸出】
【樣例1】
Right
【樣例2】
0-670-82162-4
【解析】
此題是一個簡單的字符串處理題，沒什麼好說的，只是要注意‘X’的情況，直接貼代碼
var
s:string;
i,total,k:integer;
begin
readln(s);
total:=0;
k:=1;
for i:=1 to 11 do
begin
if s[i]<>'-' then
begin
total:=total+(ord(s[i])-48)*k;
inc(k);
end;
end;
