\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var n, i, l, r, k : longint;
    a : array of longint; 
  procedure sort(var a:array of longint;l,r:longint);
    var i, j, res, tmp : longint;
     begin
    i := l; j := r;
    res := a[l + (r - l) div 2];
    while i <= j do 
         begin
        while a[i] < res do inc(i);
        while a[j] > res do dec(j);
        if i <= j then 
             begin
            tmp := a[i];
            a[i] := a[j];
            a[j] := tmp;
            inc(i); dec(j);
             end ;
         end ;
    if l < j then sort(a, l, j);
    if i < r then sort(a, i, r);
     end ;
  function x(const a:array of longint;l,r,k:longint):longint;
    var d : longint;
     begin
    d := 0;
    while l < r do 
        if a[l] + a[r] > k then
             begin
            inc(d,r-l);
            dec(r);
             end 
        else inc(l);
    exit(d);
     end ;
begin
    readln(n,k);
    setlength(a,n);
    for i := 0 to n - 1 do read(a[i]);
    sort(a,0,n-1);
    write(x(a,0,n-1,k));
       
end .