{* Задача383 *}

REM basic

' Надо составить программу, выводящую на экран все натуральные трёхзначные числа, делящиеся без остатка на 17, сумма цифр которых равняется 11.


For i = 100 To 999
    a = i
    s = 0
    Do
        s = s + a Mod 10
        a = a  10
    Loop Until a = 0
    If i Mod 17 = 0 And s = 11 Then PRINT i
Next
End