00010 INPUT H,L 00020 FOR I = H TO L 00030 FOR J = 2 TO INT(SQR(I)) 00040 IF INT(I/J)*J = I THEN 60 00050 NEXT J 00055 PRINT I 00060 NEXT I 00070 END