[Resolvido] diagonal do quadrado

ola pessoal me ajudem

tenho q entrar com o lado de um quadrado e imprimir:

PERIMETRO:

AREA:

DIAGONAL:

minha dulvida é na diagonal ñ sei se ta certo

var
ldq : inteiro
perimetro, area, diagonal : real
inicio
escreva ("entre com o lado do quadrado: ")
leia (ldq)
perimetro := ldq * 4
area := quad(ldq)
diagonal := raizq(2 * area)
escreval ("Perimetro: ",perimetro)
escreval ("Area: ",area," M²")
escreval ("Diagonal: ",diagonal)
fimalgoritmo