Составить множество целых чисел диапазона 1 .. 10000, которые можно представить в виде m^2 + n^2

var
 m,n,cnt:integer;
 mas: array of integer;
begin
  m:=1;
  cnt:=0;
  setlength(mas,10000);
  while(true) //цикл по m
  begin
    n:=m;
    while(true) //цикл по n
    begin
       if (m*m+n*n)>10000 then break;
       mas[cnt]:=m*m+n*n;
       inc(cnt);
       inc(n);
    end;
    if (2*m*m)>10000 then break; 
    inc(m);
  end;
  setlength(mas,cnt); //уменьшаем длину массива до рельного количества занятых элементов
  //массив mas содержит требуемые числа. остается только отсортировать и убрать дубликаты, если таковые имеются
end.

{ только max_value надо сделать чуть больше, скажем }
const
  max_value = 12000;
 
{ тут все остальное, что приведено по ссылке }
 
var
   mySet : TSet;
   m, n : integer;
   i, n1, next: LongInt;
begin
   m := 1;
   while true do
   begin
     n := m;
     while true do
     begin
       if sqr(m) + sqr(n) > 10000 then break;
       writeln(sqr(m) + sqr(n));
       include(mySet, sqr(m)+sqr(n));
       inc(n);
     end;
     if 2*sqr(m) > 10000 then break;
     inc(m);
   end;
   print_set(mySet);
end.