Imports System

Public Module Module1

    Dim DIAS As Integer

    DIM CUENTA AS INTEGER

    DIM VALORDIA, SUMADIAS, SEPTIMO, TOTALSEMANA AS DOUBLE

    Public Sub Main()

        Console.WriteLine("CALCULO DE PLANILLA SEMANAL")

        Console.WriteLine("REALIZADO POR CRIS")

        Console.WriteLine("INGRESE DIAS LABORADOS")

        DIAS = CONSOLE.ReadLine()

        'DESDE X=1 HASTA DIAS = 5 HAGA

        FOR CUENTA = 1 TO DIAS STEP 1

        Console.WriteLine("INGRESE VALOR DEL DIA " &CUENTA)

        VALORDIA = Console.ReadLine()

        SUMADIAS += VALORDIA    

    NEXT

    IF DIAS = 6 THEN

        SEPTIMO = SUMADIAS/6    

        TOTALSEMANA = SUMADIAS / SEPTIMO

        Console.WriteLine("TOTAL SEMANAL ES Q" &TOTALSEMANA)

    ELSE

        Console.WriteLine("TOTAL SEMANAL ES Q" &SUMADIAS)

    END IF

    Dim anticipo, porcentaje, prestamo, porcentajepre, totalprestamo, opcion as double

    Console.WriteLine("Desea hacer un : 1.prestamo,, 2.Anticipo  3.nada")

    opcion = Console.ReadLine()

    End Sub

End Module