Cho dãy n số nguyên dương a1, a2, , an và số nguyên dương S. Hãy đếm xem có bao nhiêu cặp phần tử (ai, aj) (i <> j) thỏa mãn ai + aj = S. code pascal ạ

uses crt;
var n,s,i,j,d:longint;
a:array[1..100000] of longint;
begin
clrscr;
readln(n,s);
for i:=1 to n do
 readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]+a[j]=s then d:=d+1;
write(d);
readln
end.

*Code C++:

#include <bits/stdc++.h>
using namespace std;
long long a[1000000];
int main() {
    long long s,x,n,res=0;
    cin>>n>>s;
    for(int i=1; i<=n; i++) {
        cin>>x;
    res=res+a[s-x], a[x]++;
}
cout << res;
}

*Code pascal:

var i:longint;
s,x,n,res:int64;
a:array[0..1000000]of int64;
begin
  read(n,s); res:=0;
   for i:=1 to n do  
    begin  
    read(x);
       res:=res+a[s-x];
       a[x]:=a[x]+1;
    end;
    write(res);
end.