DTRON PASCAL

var n,k,r,d,i:longint;
begin
        assign(input, 'a.inp'); reset(input);
        assign(output, 'a.out'); rewrite(output);
        read(n,k);
        for i:=1 to n do
        begin
                read(r);
                if r>k then inc(d);
        end;
        write(d);
end.