Pascal语言找2-1000中的亲密数对(A的因子和等于B,B的因子和等于A,且A<>B,则称A,B为亲密数对

希望lz能看好我的代码，思路是：枚举i，j分别表示a,b的值，然后求出a,b的因子看是否符合要求，前提(ab)，代码： var i,j,k,a,b,tot:Longint;begin for i:=4 to 1000 do begin a:=1; b:=1; for k:=2 to i-1 do //您的题目描述不清楚，按照这个题目的要求，因子必