Imports System

Public Module Module1

    Public Sub Main()

        dim names(5) as string 

        dim count as string 

        count=0

        for i=1 to 5 

        names(i)=console.readline()

    next

​

    for i=1 to 5 

    if (names(i)="ahmed") then

        count=count+1

    End if

next

console.writeline (count)

​

    End Sub

End Module