【模拟】ISBN号码

题目:ISBN号码 rqnoj485

题目描述

每一本正式出版的图书都有一个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

没什么好说的。。。Pascal Code

program rqnoj485;

procedure init;
begin
  assign(input,'rqnoj485.in');
  assign(output,'rqnoj485.out');
  reset(input);
  rewrite(output);
end;
procedure outit;
begin
  close(input);
  close(output);
  halt;
end;

procedure readdata;
begin
end;

function tonum(s:char):longint;
begin
  exit(ord(s)-ord('0'));
end;

procedure main;
var
  s:string;
  i:longint;
  sum,num:longint;
begin
  read(s);
  sum:=0;num:=0;
  for i:=1 to 12 do
  begin
    if s[i]='-' then continue;
    inc(num);
    sum:=sum+(ord(s[i])-ord('0'))*num;
  end;
  sum:=sum mod 11;
  
  if sum=10 then
  begin
    if s[13]='X' then write('Right')
    else begin
      for i:=1 to 12 do write(s[i]);
      write('X');
    end;
  end;
  if sum<10 then
  begin
    if tonum(s[13])=sum then write('Right')
    else begin
      for i:=1 to 12 do write(s[i]);
      write(sum);
    end;
  end;
end;


begin
  init;
  readdata;
  main;
  outit;
end.