10 CLS
20 PRINT "LINEAR CORRELATION COEFFICIENT"
30 DEFDBL A-Z : DEFSNG I
40 PRINT
50 PRINT "NUMBER OF POINTS"; 
60 INPUT N 
70 J=0 
80 K=0 
90 L=0 
100 M=0 
110 R=0 
120 FOR I=1 TO N 
130 PRINT "X,Y OF POINT";I;
140 INPUT X,Y 
150 J=J+X 
160 K=K+Y 
170 L=L+X^2
180 M=M+Y^2
190 R=R+X*Y 
200 NEXT I 
210 R2=(N*R-J*K)/SQR((N*L-J^2)*(N*M-K^2))
220 PRINT 
230 PRINT "COEFFICIENT OF CORRELATION =";R2 
240 END