Ejercicio en Visual Basic sobre calculo de agua de un estanque

Hola a tod@s

Adjunto un nuevo ejercicio que me dejaron en una tare a de programacion sobre Visual Basic 2010

Nota: Pronto subiré aplicaciones con conexiones a bases de datos y en modo grafico, siempre en Visual Basic ya que es el lenguaje que nos han solicitado utilizar

·        

    Escriba un programa que dada la capacidad de agua de un tanque y el consumo semanal de un grupo de viviendas, diga cuantas semanas permitirá suplir la necesidad de agua y cuánta agua quedará en cada semana.

Sub Main()

        Dim capacidad, consumo, reserva As Double

        Dim semanas As Integer

        Console.WriteLine("-------Sistema de Administracion de Recursos Hidricos (SARH)------")

        Console.WriteLine("------------------------------------------------------------------------")

        Console.WriteLine("Ingrese la capcidad de agua del estanque en litros cubicos", capacidad)

        capacidad = Console.ReadLine()

        Console.WriteLine("Ingrese el consumo semanal de agua en litros cubicos de la comunidad completa", consumo)

        consumo = Console.ReadLine()

        semanas = (capacidad / consumo)

        Console.WriteLine("La capacida del estanque alcanza para: " & semanas & " semanas de agua")

        Console.WriteLine("------------------------------------------------------------------------")

        For i = 1 To semanas

            If i = 1 Then

                reserva = capacidad

            End If

            reserva = reserva - consumo

            Console.WriteLine("La cantida de agua que queda despues de la semana " & i & " es: " & reserva & " litros cubicos")

        Next

        Console.WriteLine("------------------------------------------------------------------------")

        Console.WriteLine("Presione enter para salir")

        Console.ReadLine()

    End Sub

    

   Asi quedaria la aplicación