OpenConsole()
limite.i = 2200
s.i = 3
Dim l.i(limite)
Dim ladd.i(limite * limite * 2)

For x.i = 1 To limite
  x2.i = x * x
  For y = x To limite
    ladd(x2 + y * y) = 1
  Next y
Next x

For x.i = 1 To limite
  s1.i = s
  s.i + 2
  s2.i = s
  For y = x +1 To limite
    If ladd(s1) = 1
      l(y) = 1
    EndIf
    s1 + s2
    s2 + 2
  Next y
Next x

For x.i = 1 To limite
  If l(x) = 0
    Print(Str(x) + " ")
  EndIf
Next x
Input()
CloseConsole()