[Resolvido] algoritmo matematica

pessoal nescessito da ajuda de vcs, analisem meu algoritmo e me digam se há erros e onde estam como corrigilo, observem o lado matematico

Entrar com a base e a altura de um retângulo e imprimir a seguinte saída

PERIMETRO:

AREA:

DIAGONAL

var
h, b: inteiro {h = altura. b = base}
area, perimetro, diagonal: real
inicio
escreva ("entre com à altura: ")
leia (h)
escreva ("entre com a base: ")
leia (b)
area := (h * b)
perimetro := (h 2) + (b 2)
diagonal := raizq(quad(h) + quad(b))
escreval ("Area: ",area)
escreval ("perimetro: ",perimetro)
escreval ("diagonal: ",diagonal)
fimalgoritmo
abraço