10 CLS
20 INPUT"Ka‡a kadar asal say¨lar¨ istersin";N
30 FOR I=2 TO N
40 S=0
50 FOR J=2 TO SQR(I)
60 IF I MOD(J)=0 THEN S=S+1
70 NEXT J
80 IF S=0 THEN PRINT I;"  ";
90 NEXT I