selectiva 3

Module Module1

Sub Main()
Dim edad, num_puls As Integer
Dim sexo As String
Console.WriteLine("Digite sexo")
sexo = Console.ReadLine()
Console.WriteLine("Digite edad")
edad = Console.ReadLine()
If sexo = "femenino" Then
num_puls = (220 - edad) / 10
Console.WriteLine("El numero de pulsaciones es:" & num_puls)
Console.ReadLine()
Else
If sexo = "masculino" Then
num_puls = (210 - edad) / 10
Console.WriteLine("El numero de pulsaciones es:" & num_puls)
Console.ReadLine()
End If
End If


End Sub

End Module