CLS

DIM a, b, c, d AS INTEGER

INPUT "Masukan Angka : ", a

b = 1

WHILE b <= a

  c = 2
  d = 1

  DO WHILE c <= b
      IF b MOD c = 0 THEN
          d = d + 1
      END IF
      c = c + 1
  LOOP
  
  IF d = 2 THEN
      PRINT b
  END IF

  b = b + 1
WEND

END