uses crt;
var A:array[1..1000] of integer;
    i,n,stt,min:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap so thu ',i,': ');
      readln(A[i]);
   end;
   min:=A[1];
   for i:=2 to n do
   if A[i]<min then
   begin
      min:=A[i];
      stt:=i;
   end;
   write('So nho nhat la so ',min,', o vi tri thu ',stt);
   readln
end.