ac1118.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 13 行

program tju1118;
var
  n:int64;
begin
  repeat
    read(n);
    if n>=520000000 then
      writeln(n-3)
    else
      writeln(520005196-(519999999-n) mod 5200);
  until seekeof;
end.