Вывод Треугольноквадратных чисел

function cvadr(a:real):boolean;
var f:real;
begin
f:=sqrt(a);
if f=Int(f) then Result:= true else Result:=false;
end;
var
a:int64;
f:Real;
Begin
while true do
 Begin
 a:=a+1;
 f:=((sqr(a)+A)/2);
 if Int(f)=f then
  if cvadr(Int(f)) then Begin write (f); write('  '); write(a); write ('  ');writeln(sqrt(f)); end;
  end;
end.