Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("#")

        Do

        Dim x as integer = 0

        x = Console.ReadLine()

        Console.WriteLine(x + 100)

        If x > 50 then 

            Console.WriteLine(x - 100) 

            End If

        Loop

    End Sub

End Module