uses crt;
var a:array[1..1000] of longint;
i,n,min:longint;
function m(a,b:longint):longint;
begin
    if a>b then exit(b);
    exit(a);
end;
begin
    clrscr;
    write('n=');readln(n);
    for i:=1 to n do readln(a[i]);
    min:=a[1];
    for i:=2 to n do
       if m(min,a[i]) <> min then min:=m(min,a[i]);
    writeln('Min= ',min);
readln;
end.

program bai_giai;
uses crt;
var A:array[1..1000] of integer;
    n,i,nn:integer;
function min(x,y:integer):integer;
begin
    if x>y then min:=y else min:=x;
end;
BEGIN
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    nn:=min(A[1],A[2]);
    for i:=3 to n do
        if min(nn,A[i])<nn then nn:=min(nn,A[i]);
    write(nn);
    readln;
end.