a,program nhonhat;
uses crt;
var n,i,chiso:integer;
    Min:longint;
    A:array[1..n] of integer;
begin
 clrscr;  Min:=Maxlongint;
 readln(n);
 For i:=1 to n do read(A[i]);
 For i:=1 to n do if A[i]<=Min then
  begin
   Min:=A[i];
   chiso:=i;
  end;
  writeln('So nho nhat: ',Min);
  writeln('vi tri: ',chiso);
  readln;
  readln;
end.