' https://pydefis.callicode.fr/defis/PokeNombresCommuns/txt
Imports System

Class Carres
	Overloads Shared Sub Main(ByVal args() As String)

	Try 
		Dim n As Integer
		For n = 56 To 1000 Step 7
			Dim s As String = n.ToString(n)
			Dim sum, i As Integer
			sum = 0
			For i = 0 To s.Length() - 1
				sum = sum + Asc(s.Chars(i)) - Asc("0")
			Next
			If sum = 11 Then
				Console.WriteLine(n)
			End If
		Next 

		Catch ex As Exception
			Console.WriteLine(ex.Message) 
	End Try

	End Sub
End Class