HORSE PASCAL

var n,x,y,s: longint;
    a:array[1..100000] of longint;
    
procedure nhap;
var i:longint;
begin
    readln(n);
    for i:=1 to n do read(a[i]);
end;

procedure giai;
var i:longint;
begin
    x:=a[1];
    for i:=2 to n do
    begin
        s:=s+x;
        if a[i]<x then x:=a[i];
    end;
    writeln(s);
end;
begin
    assign(input, 'HORSE.inp');     reset(input);
    assign(output, 'HORSE.out');     rewrite(output);
    nhap;
    giai;

end.