uses crt; var i,k,j,n,tam,dem,x:integer; a: array [1 50] of integer; begin clrscr; write('n=');readln(n); for i:= to n begin write('a[',i,']='); readln(a[i]); end; for i:= to n-1 for j:= i+1 to n begin if A[i]a[i] k:= i (i vị trí mà ta cần chèn vào) lúc điều kiện k=n+1 vòng lặp while sai nên thoát khỏi vòng lặp while trên, x