比较简单的树形dp;
定义s[i]为节点i的子树节点数和（包括自身）；叶子节点s[j]=1;
s[i]=signma(s[k])+1 (k是i的孩子）
则i满足的条件是 1.s[k]<=n div 2 （k为所有孩子节点）
2.n-s[k]<=n div 2；
由于n比较大，可以考虑用前向星来存储，这题想明白了还是很简单的，最后注意满足条件的节点升序输出；
type link=^node;
node=record
data:integer;
next:link;
end;
var c:array[..] of link;
f,a:array[..] of boolean;
s:array[..] of longint;
i,n,x,y:integer;
w:boolean;
r:link;
procedure add(x,y:integer); //前向星
var p:link;
begin
new(p);
p^.data:=y;
p^.next:=c[x];
c[x]:=p;
end;
procedure treedp(x:integer);
var ch:boolean;
i:integer;
r:link;
begin
ch:=true;
s[x]:=;
f[x]:=true;
r:=c[x];
while r<>nil do
begin
if not f[r^.data] then
begin
f[r^.data]:=true; //前向星是图结构，这里的标记是建立从父节点到子节点的关系
treedp(r^.data);
if s[r^.data]>n div then ch:=false;
inc(s[x],s[r^.data]);
end;
r:=r^.next;
end;
if (n-s[x])>n div then ch:=false;
if ch then a[x]:=true;
end;
begin
readln(n);
for i:= to n- do
begin
readln(x,y);
add(x,y);
add(y,x);
end;
fillchar(f,sizeof(f),false);
fillchar(a,sizeof(a),false);
treedp(); //生成树任意一个节点都可以作为根节点
w:=false;
for i:= to n do
begin
if a[i] then
begin
w:=true;
writeln(i);
end;
end;
if not w then writeln('NONE');
end.