На данном числовым промежутке надо найти все натуральные числа, которые имеют два различных выражения в виде суммы чисел, каждый из которых можно представить в виде суммы квадратов четырех натуральных чисел не одинаковых образом — Pascal(Паскаль)

uses crt;
var a,b,i,j,k,l,m,c,f:longint;
begin
clrscr;
repeat
writeln('Введите интервал натуральных чисел b>a');
readln(a,b);
until(a>0)and(b>a);
f:=0;
for i:=a to b do
 begin
  c:=0;
  for j:=1 to round(sqrt(i)) do
  for k:=j+1 to round(sqrt(i)) do
  for l:=k+1 to round(sqrt(i)) do
  for m:=l+1 to round(sqrt(i)) do
  if j*j+k*k+l*l+m*m=i then c:=c+1;
  if c>=2 then write(i,' ');
 end;
readln
end.