【程序3】题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？

pascal版
var
i,n,f,k:longint;
a:array[1..100000] of longint;
f:boolean;
begin
f:=0;
i:=1;
while i*i<=100000 do
begin
inc(f);
a[f]:=i*i;
inc(i);
end;
for i:=1 to 100000 do
for j:=1 to f do
if a[j]=i+100 then
begin
for k:=1 to f do
if a[j]=i+268 then
begin
write(' ',i);
f2:=true;
break;
end;
if f=true then break;
end;
end.