Imports System

Public Module Module1

    Public Sub Main()

        Dim x as decimal

        Dim y(16) as decimal

        For x = 1 to 16

        y(x) = Console.ReadLine()

    Next

    For x = 1 to 16

    Console.Write(y(x))

    If x mod 4 = 0 then

        Console.Write(" ")

    End If

Next

    End Sub

End Module