Imports System.IO
Module Module1

    Sub Main()
        Const INPUT_FILE As String = "DATA1.TXT"
        Const OUT_FILE As String = "OUT1.TXT"
        Dim ifs As New FileStream(INPUT_FILE, FileMode.Open, FileAccess.Read)
        Dim input As New StreamReader(ifs)
        Dim ofs As New FileStream(OUT_FILE, FileMode.Open, FileAccess.Write)
        Dim output As New StreamWriter(ofs)

        Dim LineOfInput(5) As Integer
        Dim LineOfOutput(5) As Integer

        Dim i As Integer = 0

        Do While input.Peek > -1
            LineOfInput(i) = input.ReadLine()
            i = i + 1

        Loop
        LineOfOutput(0) = 9000 / LineOfInput(0)
        LineOfOutput(1) = 9000 / LineOfInput(1)
        LineOfOutput(2) = 9000 / LineOfInput(2)
        LineOfOutput(3) = 9000 / LineOfInput(3)
        LineOfOutput(4) = 9000 / LineOfInput(4)



        output.WriteLine(LineOfOutput(0))
        output.WriteLine(LineOfOutput(1))
        output.WriteLine(LineOfOutput(2))
        output.WriteLine(LineOfOutput(3))
        output.WriteLine(LineOfOutput(4))
        output.Close()
    End Sub

End Module