10 input "introduce un numero";num
20 DIVISOR = 2
30 IF (num/DIVISOR)= int(num/DIVISOR)then
40 print DIVISOR 
50 num = (num/DIVISOR)
60 else
70 DIVISOR = DIVISOR + 1
100 end if
110 If num <> 1 then goto 30
120 if inkey$ = "" then goto 120