Imports System

Public Module Module1

    Public Sub Main()

            Dim aNums as integer() = {1093,1097,1103,1109,1117,1123,1129,1151,1153,1163,1171,1181,1187,1193,1201,1213,1217,1223,1229,1231,1237,1249,1259,1277,1279,1283,1289,1291,1297,1301,1303,1307,1319,1321,1327,1361,1367,1373,1381,1399}

for i = 0 to aNums.length-1

    if aNums(i) mod 7 = 0

            console.writeline(aNums(i))

        end if

    next

    End Sub

End Module