program lab3;

var
  n, m: integer;
  res: set of 1..255;
begin
  for n := 0 to 255 do
    for m := 0 to 255 do
      if n * n + m * m <= 255 then
        res := res + [n*n + m*m];

  for n := 0 to 255 do
    if n in res then
      write(n, ' ');

  readln;
end.