6.5

program prog;
var
    arr : array[1..8] of longint;
    i, count, min, max, d : longint;
begin
    read(arr[1]);
    min := arr[1];
    for i := 2 to 8 do begin
        read(arr[i]);
    end;
    count := 0;
    for i := 1 to 8 do
        if ((arr[i] < 8 * 8) and (arr[i] > 8) and (arr[i] mod 8 > arr[i] div 8)) then
            count := count + 1;
    writeln(count);
end.