OUTTEXTXY(490,370,'Go Esc Ket Thuc !');END;(*--------------------------------------------------*)PROCEDURE PRINT_GRAPH;{In do thi}VAR I,J:INTEGER;BEGINSETBKCOLOR(BLUE);CLEARDEVICE;SETFILLSTYLE(1,DARKGRAY);BAR(0,0,GETMAXY,GETMAXY);FOR I:=1 TO N DOBEGINFOR J:=I+1 TO N DOIF (G[I,J]>0) AND (G[I,J[r]