Imports System

Public Module Module1

    Public Sub Main()

        Dim ho,hc,n as Double

        Console.WriteLine("Rebonds d'une balle")

        Console.WriteLine("saisir la valeur ho")

        ho = Console.ReadLine()

        Console.WriteLine("saisir la valeur hc")

        hc = Console.ReadLine()     

        Do          

            ho = (80/100)*ho

            n = n+1

        Loop Until ho <= hc

        Console.WriteLine("n = " & n & " h = " & ho)

    End Sub

End Module