Паскаль Множества

[vacia78]

Помогите плз с решением задачи:
В поpядке убывания напечатать все целые числа из диапазона
1..400, котоpые пpедставимы в виде n^2+2*k^2, но не пpед¬ставимы в виде 4*j^2+3*k^2 (n,k,i,j>=0).

[vacia78]

Up все еше требуется помошь....

[OCTAGRAM]

var S: array [0..400] of Boolean;
    n, k, i, j: Integer;
begin
  for i := 0 to 400 do
    S[i] := False;
  n := 0;
  while Sqr(n) <= 400 do
  begin
    k := 0;
    while Sqr(n) + 2 * Sqr(k) <= 400 do
    begin
      S[Sqr(n) + 2 * Sqr(k)] := True;
      k := k + 1;
    end;
    n := n + 1;
  end;
  j := 0;
  while 4 * Sqr(j) <= 400 do
  begin
    k := 0;
    while 4 * Sqr(j) + 3 * Sqr(k) <= 400 do
    begin
      S[4 * Sqr(j) + 3 * Sqr(k)] := False;
      k := k + 1;
    end;
    j := j + 1;
  end;
  Write('Числа :');
  for i := 400 downto 1 do
    if S[i] then
      Write(' ', i);
  ReadLn;
end.

[vacia78]

Большое спасибо за решение=) надеюсь уже наконец сессию закрою с этой лабой