Program prog;
var
n,min,a,i:integer;
begin
readln(n);
readln(a);
min:=a;
for i:=2 to n do
readln (a);
if a<min then min:=a;
end;
writeln(min);
end.
Program prog;
var
n,min,a,i:integer;
begin
readln(n);
readln(a);
min:=a;
for i:=2 to n do
begin
readln (a);
if a<min then min:=a;
end;
writeln(min);
end.