Module Problem1

    Sub Main()
        Dim sr As New IO.StreamReader("DATA5.txt")
        Dim sw As New IO.StreamWriter("OUT5.txt")

        'if req'd:
        'Dim N As Integer '= sr.ReadLine()
        For i As Integer = 0 To 4
            Dim line As String
            Do
                line = sr.ReadLine()
            Loop Until (IsNumeric(line))

            sw.WriteLine(line * 3)


nextfor:
        Next

        sr.Close()
        sw.Close()

    End Sub

    
End Module