cố gắng lên ae

program bai4; uses crt; const fi='chanle.inp'; fo='chanle.out'; nmax=100; type mang=array[1..nmax] of integer; var n:integer; a:mang; procedure nhap; var f:text; i:integer; begin assign(f,fi);reset(f); readln(f,n); for i:=1 to n do read(f,a[i]); close(f); end...