ac1209.pas

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

program tju1209;
var
  a,n,d:cardinal;//d=b-a
begin
  repeat
    read(a);n:=a*a+1;d:=trunc(sqrt(n));
    while n mod d>0 do dec(d);
    writeln(d+a+a+n div d);
  until seekeof;
end.