... write(g,max[1],max[2],':',max[3],max[4],':',max[5],max[6]); end; writeln(g); write(g,(t2-t1)/18.2:0:9); close(f1);close(g); end {bai thi hsg 2009} const var fo='per.inp'; go='per.out'; d,i,p,q,n:longint; f,g:text; begin assign(f,fo);reset(f); ... dài dãy tăng dài , độ dài dãy giảm dài nhng hoán vị (1,4,3,2) có thứ tự từ điển nhỏ Hết Cán coi thi không giải thích thêm const f:array[0 9]of byte=(6,2,5,5,4,5,6,3,7,6); fo='hms.inp'; go='hms.out'; ... ...