Розв’язок задачі з Абрамова №332

Всі умови | Умова: Відомо, що будь-яке натуральне число можна представити у вигляді суми не більше ніж чотирьох квадратів натуральних чисел або, що те ж саме, у вигляді суми чотирьох квадратів невід'ємних цілих чисел (теорема Лагранжа). Дано натуральне п; вказати такі невід'ємні х, у, г, т, що ... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №332)

program Pr332;
var
  n, n2, x, y, z, t : integer;
begin
  readln(n);
  n2 := n;
  x := trunc(sqrt(n2));
  n2 := n2 - x*x;
  y := trunc(sqrt(n2));
  n2 := n2 - y * y;
  z := trunc(sqrt(n2));
  n2 := n2 - z * z;
  t := trunc(sqrt(n2));
  writeln('x=',x,'  y=',y,'  z=',z,'  t=',t);
  writeln(n,'=',x*x,'+',y*y,'+',z*z,'+',t*t);
  readln;
end.