ISBN号码-ssl 1591

题意：

ISBN号码

Input

输入文件isbn.in只有一行，是一个字符序列，表示一本书的ISBN号码（保证输入符合ISBN号码的格式要求）。

Output

输出文件isbn.out共一行，假如输入的ISBN号码的识别码正确，那么输出“Right”，否则，按照规定的格式，输出正确的ISBN号码（包括分隔符“-”）。

Sample Input

【输入样例1】
0-670-82162-4


【输入样例２】
0-670-82162-0

Sample Output

【输出样例1】
Right

【输出样例２】
0-670-82162-4

题解：

用字符串的方法读数，接着按题目要求做。

var str:string;a:array[1..9]of integer;

    n:string;
    i,s,t:integer;
begin
  readln(str);
  n:=copy(str,13,1);
  delete(str,2,1);
  delete(str,5,1);
  delete(str,10,2);
  s:=0;
  for i:=1 to 9 do
  begin
    val(str[i],a[i]);
    s:=s+i*a[i];
  end;
  s:=s mod 11;
  if n='X' then t:=10 else val(n,t);
  if s=t then write('Right') else
  begin
    for i:=1 to 9 do
    begin
      write(a[i]);
      if (i=1) or (i=4) or (i=9) then write('-');
    end;
    if s<>10 then write(s) else write('X'); 
  end;
end.