program B;
var n,i,k,min,l:integer;
    a:array[1..100] of integer;
    input: file of integer;
    output: file of integer;
begin
assign(input, 'holy.in.dat');
reset(input);
read(n);
read(k);
for i:=1 to n do begin
                      read(a[i]);
                 end;
min:=a[1];
for i:=2 to n do begin
               if a[i]<min then min:=a[i]
               else min:=a[1];
               end;
assign(output, 'holy.in.sol');
rewrite(output);
write(min);
end.