没必要这么复杂吧？数组根本不用的嘛
pascal
var
n,t,k,m:qword;
begin
readln(k);
m:=1;n:=1;
while t<k do
begin
t:=m+n;
if t<k then
begin
m:=n;
n:=t;
end;
end;
writeln(sqr(m)+sqr(n));
end.

就是一个裴波那挈数列a