; INF=; type arr=record u,v,nt:longint; end; arr1=..maxn] of longint; ..maxn*] of arr; lt:..maxn] of longint; flag:..maxn] of boolean; son:..maxn] of longint; ans:..maxn] of longint; min,x,y,n,i,j,num:longint; procedure swap(var a,b:longint); var c:l…