Coi nó thiếu gì dị ạ

Free Pascal IDE File Edit Search Run Compile Debug Tools Options Windo noname01 program nhonhat; uses crt; var begin clrscr; write( nhap so luong phan tu n:); readln(n); write( nhap mang a:); for i:=1 to n do non it)... begin write (a [i, ]=); readln (a[i]); end; min :=a[1]: for 1:=2 t ...