Задача на пребор.

[Anatole]

LeBron Должен извиниться. В моей программе действительно допущена досадная ошибка из-за невнимательности. Там цикл рекурсивного вызова процедуры дожен быть написан в следующем виде:

for I := m downto 1  do
   begin
   if Kmin-1 <= k then exit;
   a[k] := i;
   Fsqr(n-i*i, k+1);
   end;

P.S. теперь результат работы программы показывает, что 2 миллиарда можно представить в виде суммы квадратов 2-х чисел