Imports System.IO

Module Module1

    Sub Main()
        Dim fsIn As New FileStream("DATA11.txt", FileMode.Open, FileAccess.Read)
        Dim infile As New StreamReader(fsIn)
        Dim fsOut As New FileStream("OUT11.txt", FileMode.Create, FileAccess.Write)
        Dim outfile As New StreamWriter(fsOut)

        Dim Counter As Integer
        Dim s() As String
        Dim A(2), B(2), C(2), D(2) As Double
        Dim MAC(2), MBD(2) As Double
        Dim Centroid(2) As Double

        For Counter = 1 To 5
            s = Split(infile.ReadLine)
            A(1) = Val(s(0))
            A(2) = Val(s(1))
            s = Split(infile.ReadLine)
            B(1) = Val(s(0))
            B(2) = Val(s(1))
            s = Split(infile.ReadLine)
            C(1) = Val(s(0))
            C(2) = Val(s(1))
            s = Split(infile.ReadLine)
            D(1) = Val(s(0))
            D(2) = Val(s(1))
            MAC(1) = (A(1) + C(1)) / 2
            MAC(2) = (A(2) + C(2)) / 2
            MBD(1) = (B(1) + D(1)) / 2
            MBD(2) = (B(2) + D(2)) / 2
            Centroid(1) = (MAC(1) + MBD(1)) / 2
            Centroid(2) = (MAC(2) + MBD(2)) / 2
            outfile.WriteLine(Format(Centroid(1), "Fixed") & " " & Format(Centroid(2), "Fixed"))
        Next Counter

        infile.Close()
        fsIn.Close()
        outfile.Close()
        fsOut.Close()
    End Sub

End Module