var n,m,s,i,j,x,y,z,l,tot :longint; pre,last,other,len :..] of longint; heap,d,pl :Array[..] of longint; procedure swap(var x,y:longint); var z :longint; begin z:=x; x:=y; y:=z; end; procedure add(u,v,r:longint); begin inc(l); pre[l]:=last[u]; last[u…