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]