uses math; ; INF=; var n,m,i,x,y,sum,ans,delta:longint; map:..maxn,..maxn] of longint; flag:..maxn] of boolean; T:double; ok:boolean; function ran:double; begin exit(random()/); end; procedure add(x,y:longint); begin inc(map[x,]); map[x,map[x,]]:=y;…