Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("compras supermercado")

        dim  totalp,  totalc, resultado1,resultado2 as integer

        console.WriteLine("ingrese el valor de las compras")

        totalc = console.ReadLine()

        resultado1 = 100.000  * 20 / 100

        resultado2 = 100.000 - 20

        console.WriteLine(" su valor inical es;" & resultado1)

        console.WriteLine("con el 20 % suvalor es;" & resultado2)

    End Sub

End Module