Помогите решить задачу на Delphi

[Faust_]

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