# INTERPRETER IN DEMAGOG
# PRESS F2

# ДЕМОНСТРАЦИЯ ИНТЕРПРЕТАТОРА В ПРОГРАММЕ DEMAGOG
# ДЛЯ ВЫПОЛНЕНИЯ НАЖМИТЕ F2

# Search primes
# Поиск простых чисел

NUM n, k, nmin, nmax, nmaxdef, nm, simple

nmin = InputBox('Search primes','Enter the lower limit','0')
nmax = InputBox('Search primes','Enter the upper limit',nmin+10000)

IF nmax - nmin > 10000
    ShowMessage('The range is too great!')
    EXIT
FI

put Search primes from,' ', nmin,' ', to,' ', nmax
put

n = nmin
IF n <= 1 
    n = 3
FI
IF n % 2 == 0
    n = n+1
FI
IF n == 3
    put 2,' ',
FI 
DO n <= nmax 
    k=3
    nm = ceil(sqrt(n)+1)
    simple = 1
    DO (k < nm) & simple
       IF n % k == 0 
           simple = 0
       FI
    k = k+1
    OD
    IF simple
        put n,' ',
    FI
    n = n+2
OD
put

