Imports System
Public Module Module1
Public Sub Main()
Dim FirstMark As Integer
Dim Marks(3) As Integer
Marks(0) = 60
Marks(1) = 50
Marks(2) = 45
FirstMark = Marks(0)
Marks(0) = Marks(2)
Marks(2) = FirstMark
Console.WriteLine(Marks(0))
Console.WriteLine(Marks(1))
Console.WriteLine(Marks(2))
End Sub
End Module