Imports System.Console

Public Module Module1

    Public Sub Main()

        dim n as integer

        writeline("Enter your number greater than 10")

        n=integer.Parse(readline())

    for i as integer =n to 0 step -2

        writeline("your number is :" &i)

    next

    End Sub

End Module