Imports System
Public Module Module1
Public Sub Main()
'DECLARATIONS
'=================================================
Dim Temp As Integer =0
Dim i As Integer =0
Dim Data As Integer =0
'INPUT
Console.WriteLine("INPUT YOUR DATA")
Data=Console.ReadLine()
'LOOPS
Do Until i = Data
'SELECTIONS
If i MOD 5=0 Then
Temp = Temp + 1
Else
Temp = Temp
End If
loop
End Sub
'SUB RUTINES
Sub biggestnum(byVal Temp As Integer )
Dim biggest As Integer
biggest =Temp*5
'OUTPUT
Console.WriteLine("THERE ARE " & Temp & " NUMBERS DIVISIBLE BY 5")
Console.ReadLine()
End Module
