Module VATcalc
    Sub main()
        Dim intPrice As Integer
        Dim sinTotal, sinVat As Single

        Console.WriteLine("rhoi y pris i mewn, os gwelwch yn dda")
        intPrice = Console.ReadLine

        sinVat = intPrice * 17.5 / 100

        Console.WriteLine("Y VAT yw {0}", sinVat)

        sinTotal = intPrice + sinVat

        Console.WriteLine("Y pris newydd yw {0}", sinTotal)

        Console.ReadLine()

    End Sub
End Module