PESO IDEAL

Algoritmo
Qual é o peso ideal de uma pessoa? Calcule isto utilizando o IMC. IMC ideal é 25 . Faça um algoritmo que receba a altura de uma pessoa e informe seu peso ideal.

1.  algoritmo "Cálculo de peso"
2.  var
3.    h,p:real
4.  inicio
5.    escreval("Calculo do peso ideal")
6.    escreva("Digite a sua altura ")
7.     leia(h)
8.    p <- 25*(h^2)
9.    escreval("Seu peso ideal é ",p:5:1," Kg.")
10.   escreval("*** F I M ***")
11. fimalgoritmo