ac1106.pas

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

program tju1106;
var
  k,a,b,c:qword;
begin
  repeat
    read(k);
    b:=1;c:=1;
    repeat
      a:=b;b:=c;c:=a+b;
    until c>k;
    writeln(a*a+b*b);
  until seekeof;
end.