NPROGRAMsystemARCHIMEDL"NO. POINTS"?N:0S 1XN A:B B29 X,Y  YVY Y XHX PROGRAMsystemSAMPDIST"POPULATION IN LIST1" F(Q1)D "SAMPLE SIZE"?N "NO OF SAMPLES"?S ,0,X,1,N,1)Q2 ,0,X,1,S,1)Q3 1JS 1KN (D1)X Q1[X]Q2[K]  .Q2)Q3[J]  PROGRAMsystemSAMPLE"P ="?P "SAMPLE SIZE"?N "NO OF SAMPLES"?X ,0,A,1,X,1)Q1 1JX 0S 1KN S(P)S  SNQ1[J]  Q1