{* Задача100 *}

REM basic

' Просмотрев все числа от -115 до 224 записать в массив те из них которые кратны. Распечатать полученный массив


INPUT "vvedite a"; a: Dim b(339)
For i = -115 To 224
    If i Mod a = 0 Then k = k + 1: b(k) = i: PRINT b(k);
Next
End