Imports System

Public Module Module1

    Public Sub Main()

        task5

    End Sub

    Private Sub task1

        Dim s as string

        Dim i as integer

        s=console.readline()

        Dim sUpperCase As String

        For i = 0 To s.Length -1

         If i Mod 3 = 2 Then

          sUpperCase = s(i)

        Console.Write(sUpperCase.ToUpper())

         Else

        Console.Write(s(i))

      End If

    Next

    End Sub

​

    Private sub task2

        Dim p as string

        Dim Count as integer

        dim i as integer

        count=0

        p=console.readline()

    For i = 0 to p.Length -1

    If p(i) ="a" then

        count+=1

     end if

        next

    console.writeline(count)

    end sub

​

    Private sub task3

        Dim s as string

        s=console.readline()

        s=s.Replace(" ","_")

        console.writeline(s)

    end sub

​

​

​

    Private sub task4

        Dim s as string

        s=console.readline()

        s=s.Substring(4,2)

        console.writeline(s)

    end sub

​

private sub task5

end sub

End Module