... Chương trình: (EULER. PAS) program euler; const max=30; type mang=array[1 max] of integer; var a:array[1 max,1 max] of ... assign(f, 'Euler. out');rewrite(f); if kt then begin timp(tim,spt); writeln(f,'YES'); for k:=spt downto write(f,tim[k],' >'); write(f,tim[1]); end else write(f,'NO'); close(f); END File vào ví dụ: (EULER. INP) ... integer; c,tim:mang; n,m,spt,k:integer; f:text; procedure input; var i,x,y:integer; begin assign(f, 'Euler. inp');reset(f); readln(f,n,m); for i:=1 to m begin readln(f,x,y); a[x,y]:=1; a[y,x]:=1; end;...