Pascal :

var s,i,j,n:integer;
begin
readln(n);
read(j);
s:=j;
for i:=2 to n do
begin
  read(j);
  if s>j then s:=j;
  end;
  writeln(s);
end.