написать программу для алгоритма который реализует теорему Лагранжа:

[koshka1]

НАПИСАТЬ ПРОГРАМУ ДЛЯ алгоритма, который реализует теорему Лагранжа: произвольное натуральное число n можно представить в виде: n = x^2 + y^2 + z^2 + t^2, где n, x, y, z, t Є N U {0}, n Є [0,65535]
ПОМОГИТЕ ПОЖАЛУСТА!!!!

[Plague]

Вот пожалуйста без оптимизации, решение "в лоб" раз нет наработок.

var x,y,z,t,n,ns:longint;
begin
  readln(n);
  ns:=trunc(sqrt(n));
  for x:=1 to ns do
    for y:=1 to ns do
      for z:=1 to ns do
        for t:=1 to ns do
          if n=sqr(x)+sqr(y)+sqr(z)+sqr(t) then
            writeln(n,' = ',x,'^2 + ',y,'^2 + ',z,'^2 + ',t,'^2');
end.

[koshka1]

спасибо большое, очень выручили!