Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("enter a numerator")

        dim num as integer = console.readline()

        console.WriteLine("enter a denominator")

        dim denom as integer = console.ReadLine()

        call Reduce(num, denom)

    End Sub

    sub Reduce(byRef num as integer, byRef denom as integer)

        dim GCF as integer = 1

        dim divisor as integer = num

        dim quotient as integer = (num mod divisor) + (denom mod divisor)

        do while(quotient <> 0)

            divisor -= 1

            quotient = (num mod divisor) + (denom mod divisor)

        loop

        GCF = divisor

        num /= GCF

        denom /= GCF

        if GCF > 1 then

            console.writeline("your reduced fraction is " & num & "/" & denom)

        else 

            console.writeline("This fraction cannot be reduced")

        end if

    end sub

End Module