6.3

program prog;
var
    arr : array[1..7] of longint;
    i, count, min, max : longint;
begin
    min := 10000 * 2;
    for i := 1 to 7 do
        read(arr[i]);
    for i := 2 to 7 do
        if (((arr[i] + arr[i - 1]) mod 2 = 1) and ((arr[i] + arr[i - 1]) < min)) then
            min := arr[i - 1] + arr[i];
    if (min = 10000 * 2) then
        writeln('Нет нечетной суммы')
    else
        writeln(min);
end.