dim Number, countfactors, loopcounter as integer
console.WriteLine("Enter Number")
Number = console.readline
if Number MOD loopcounter = 0 then
countfactors = countfactors + 1
loopcounter = loopcounter +1
loop until loopcounter > number
console.WriteLine("prime")
console.WriteLine("not prime")