fiz para encontrar a hipotenusa de um triangulo retangulo

algoritmo "hipotenusa de um triangulo"
// Função :
// Autor :Paulo gama
// Data : 7/9/2010
// Seção de Declarações
var
b1, b2, b3 : numerico
inicio
escreval ("cateto oposto ")
leia (b1)
escreval ("cateto adja. ")
leia (b2)
b3 <- raizq(b1^2 +b2^2) ://valor da hipotenusa
escreval (" o valor da hipoitenusa eh ", b3)
// Seção de Comandos
fimalgoritmo





Início da execução
cateto oposto
30
cateto adja.
60
o valor da hipoitenusa eh 67.0820393249937

Fim da execução.