zadach321.BAS

{* Задача321 *}

REM basic

' Сформировать движущийся круг радиуса r, центр которой перемещается попеременно в обоих направлениях вдоль вертикального отрезка с заданными границами.


INPUT "vvedite m,n"; m, n
If m > n Then SWAP m, n
For i = m To n
    k = 0
    For j = 1 To i
        If i Mod j = 0 Then k = k + 1
    Next
    If k = 2 Then s = s + i
Next
PRINT s
End