{* Задача92 *}

REM basic

' Диапазон положительных чисел задан нижней и верхней границами. Распечатать все простые числа, лежащие в указанном диапазоне.


10 INPUT "Начало диапазона ="; b%: If b% < 2 Then 20
30 INPUT "Конец диапазона ="; e%: If e% < 2 Then 30
40 If b% > e% Then SWAP b%, e%
50 flag2 = 0
60 PRINT "Простые числа в диапазоне ";
70 For chislo = b% To e%
80 flag1 = 0
90 For delitel = 2 To chislo  2
100 If chislo Mod delitel = 0 Then flag1 = 1: delitel = chislo
110 Next delitel
120 If flag1 = 0 Then PRINT chislo; : flag2 = 1
130 Next  chislo
140 If flag2 = 0 Then PRINT "отсутствуют."
150 End