Opencup :: Stage 5 - GP of Siberia :: Problem 13

{$MODE DELPHI}
{$R+,Q+,S+,I+,C+,M+,H+,O+}
{R-,S-,Q-I-,C-,M-,H-,O+}

uses
        SysUtils, Math;

var
        i, n, ans, k, cur : longint;
        a : array[0..10] of longint;

begin
        assign(input, 'input.txt');
        assign(output, 'output.txt');
        reset(input);
        rewrite(output);
        ans :=  0;
        for i := 1 to 8 do
                read(a[i]);

        read(k);
        cur := min(a[1], k);
        inc(ans, cur);
        dec(a[1], cur);

        read(k);
        cur := min(a[2], k);
        inc(ans, cur);
        dec(a[2], cur);
        dec(k, cur);
        cur := min(a[1], k);
        inc(ans, cur);
        dec(a[1], cur);

        read(k);
        cur := min(a[3], k);
        inc(ans, cur);
        dec(k, cur);
        dec(a[3], cur);
        cur := min(a[1], k);
        inc(ans, cur);
        dec(a[1], cur);

        read(k);
        cur := min(a[4], k);
        inc(ans, cur);
        dec(k, cur);
        dec(a[4], cur);
        cur := min(a[3], k);
        inc(ans, cur);
        dec(k, cur);
        dec(a[3], cur);
        cur := min(a[2], k);
        inc(ans, cur);
        dec(a[2], cur);
        dec(k, cur);
        cur := min(a[1], k);
        inc(ans, cur);
        dec(a[1], cur);

        read(k);
        cur := min(a[5], k);
        inc(ans, cur);
        dec(k, cur);
        dec(a[5], cur);
        cur := min(a[1], k);
        inc(ans, cur);
        dec(a[1], cur);

        read(k);
        cur := min(a[6], k);
        inc(ans, cur);
        dec(k, cur);
        dec(a[6], cur);
        cur := min(a[5], k);
        inc(ans, cur);
        dec(k, cur);
        dec(a[5], cur);
        cur := min(a[2], k);
        inc(ans, cur);
        dec(a[2], cur);
        dec(k, cur);
        cur := min(a[1], k);
        inc(ans, cur);
        dec(a[1], cur);

        read(k);
        cur := min(a[1], k);
        inc(ans, cur);
        dec(a[1], cur);
        dec(k, cur);
        cur := min(a[3], k);
        inc(ans, cur);
        dec(a[3], cur);
        dec(k, cur);
        cur := min(a[5], k);
        dec(a[5], cur);
        inc(ans, cur);
        dec(k, cur);
        cur := min(a[7], k);
        dec(a[7], cur);
        inc(ans, cur);

        read(k);
        cur := min(a[2], k);
        inc(ans, cur);
        dec(k, cur);
        cur := min(a[4], k);
        inc(ans, cur);
        dec(k, cur);
        cur := min(a[6], k);
        inc(ans, cur);
        dec(k, cur);
        cur := min(a[8], k);
        inc(ans, cur);
        dec(k, cur);
        cur := min(a[1], k);
        inc(ans, cur);
        dec(k, cur);
        cur := min(a[3], k);
        inc(ans, cur);
        dec(k, cur);
        cur := min(a[5], k);
        inc(ans, cur);
        dec(k, cur);
        cur := min(a[7], k);
        inc(ans, cur);

        write(ans);
end.