uses crt; var n,i,min1,min2:longint; a:array[1..1000000]of longint; begin clrscr; write('Nhap so phan tu: ');readln(n); min1:=high(longint); min2:=high(longint); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); if a[i]<min1 then min1:=a[i]; end; for i:=1 to n do if(a[i]<min2)and(a[i]<>min1) then min2:=a[i]; writeln(min2); readln end.
