Imports System

Public Module Module1

    dim dias as integer

    dim cuenta as integer

    dim valordia as double

    dim sumasemana as double 

    dim septimo as double 

    dim totalsemana as double

    Public Sub Main()

        Console.WriteLine("Calculo de Planilla")

        console.WriteLine("Realizado por ... ")

        console.WriteLine("Ingrese dias laborados" )

        dias = console.ReadLine()

        cuenta =0

        for cuenta=1 to dias step 1

        console.WriteLine("Ingrese valor del dia " &cuenta)

        valordia =  console.ReadLine()

        'sumasemana = sumasemana + valordia

        sumasemana +=valordia

        next

    'si laboro 6 dias se hará el calculo del septimo

    'septimo dia es igual al pomedio de los seis dias laborados

    'mostrar el total de la semana

    if dias = 6 then

        septimo = sumasemana/6

        totalsemana = sumasemana + septimo

        console.WriteLine("El total semanal es: Q." &totalsemana)

    else

        console.WriteLine("El total semanal es: Q." &sumasemana)

    end if

    'Complementos: verificar si hay descuentos

    'si hay total a recibir = totalsemana - descuentos

    'si no hay el total a recibir es igual a totalsemana

    End Sub

End Module