Задачка из темы множества Опции

[Markson]

Вот задачка, как зделать в масивах я примерно знаю, но мне нада её решыть с помощью множыств ( на украинском "множин"), с етим методом я никак немогу разобратся. На форуме вродебы ничего похожего ненаходил.


В порядке спадания напечатать все целые числа из диапазона 1..100 которые можно подати в виде sqr(n)+2*sqr(k) , где n,k целые числа.

[Ozzя]

var
  i,n,k : Integer;
  a : Set of Byte;
begin
  a:=[];
  readln(n,k);
  for i:=1 to 100 do
    begin
      if i=sqr(n)+2*sqr(k) then
        include(a,i);
    end;
  for i:=1 to 100 do
    begin
      if i in a then
        Write(i,' ');
    end;
  readln;
end.

Не знаю что такое "спадания " сам реализуешь