注意：Pascal语言
count 数学老师知道小明对数字很敏感，就在课下给小明出了道题，锻炼小明的数数能力。数学老师给小明n个正整数，要求小明数出其中有多少对数的和小于等于s。
输出格式：第一行两个正整数n，s
输入样例: 4 6
3 5 2 1
输出样例：4
数据范围
对于百分之60的数据，n<=1000;
对于百分之100的数据，n<=100000,给出的数以及s都小于等于1000000。
谢谢！
推荐回答
var begin readln(n,s); for i:=1 to n do read(a[i]); for i:=1 to n do begin for j:=1 to n do if a[i]+a[j]<s then k:=k+1; end; writeln(k); end.