Минимальное количество чисел, Сумма квадратов которых дает число N Опции

[Tauka]

Есть число N (N<=5000000)
Нужно определить минимальное количество чисел, сумма квадратов каких дает число N. Например, число 61 можна представить в виде суммы квадратов двух чисел 6^2+5^2
Спасибо за внимание. :о)

[virt]

Код

program minimum_kvadrats;
var a:array[1..32000]of word;
   n,i,j:longint;
   s:word;

begin
  readln(n);
  fillchar(a,sizeof(a),0);
  if sqr(trunc(sqrt(n))) = n then writeln(1) else
     begin
        for i:=1 to n do
           if sqr(trunc(sqrt(i))) = i then a[i]:=1 else
              begin
                 s:=maxint;
                 for j:=1 to trunc(sqrt(i)) do
                    if a[i-sqr(j)]+1 < s then s:=a[i-sqr(j)]+1;
                 a[i]:=s;
              end;
        writeln(a[n]);
     end;
end.

решение по алгоритму предложенному Михаилом.

ЗЫ
для 5.000.000 надо 10Мб ,существует ли алгоритм с меньшими требованиями памяти?