Ajuda com algoritmo.

preciso de uma ajudinha com esse algoritmo

Crie um algoritmo que leia um peso na Terra e o número de um planeta e mostre o valor do seu peso neste Planeta. A relação de planetas é dada a seguir juntamente com o valor das gravidades relativas a Terra:

# gravidade relativa Planeta
1 0,37 Mercúrio
2 0,88 Vẽnus
3 0,38 Marte
4 0,64 Júpter
5 0,15 Saturno
6 0,17 Urano

ok meu caro espero contar com ajuda de vocês.

ola estou com um duvida nesse algoritmo.

Tendo como dados de entrada a altura e o sexo de um pessoa, construa um algoritmo que calcule seu peso ideal, utilizando as seguintes fórmulas:
Para homens: (72.7*h) - 58
Para mulheres: (62.1*h) - 44.7

espero que me ajude com urgência. Desde já agradeço.

var
h: Real
t: Real
n: Caracter
inicio
Escreva("Altura: ")
Leia(h)
Escreva("Sexo: ")
Leia(n)

se n = "F" entao
t := ((62.1 * h) - 44.7)
senao
t := ((72.7 * h) - 58)
fimse

Escreva("Peso Ideal: ", t)
fimalgoritimo

fimalgoritimo