1MODE0 10 place=1 20 divisable=0 30 number=0 40 REPEAT 50 FOR divisable=1 TO number 60 IF (number MOD divisable)=0 TH EN a=a+1 70 IF a>2 THEN divisable=number 80 IF (number MOD 2=0 AND number> 2) THEN divisable=number 90 NEXT divisable 100 IF a=2 THEN PRINT number;" Is pr ime number ";place 110 IF a=2 THEN place=place+1 120 a=0 130 number=number+1 140 UNTIL FALSE