program ideone;

var
arr: array[1..100] of integer;
i, mx, mn, sum, tmp: integer;

begin
    for i := 1 to 100 do
        read(arr[i]);

    mx := 1;
    mn := 1;
    sum := 0;

    for i := 1 to 100 do
    begin
        if arr[mx] < arr[i] then
            mx := i;

        if arr[mn] > arr[i] then
            mn := i;
    end;

    if mx < mn then
    begin
        tmp := mx;
        mx := mn;
        mn := tmp;
    end;

    for i := mn to mx do
        sum := sum + arr[i];

    writeln(sum);
end.