Faça um algoritmo que tendo como dados de entrada dois pontos quaisquer no plano P(X1*Y1) e P(X2*Y2). Escreva a distância entre eles.

algoritmo "Distância entre dois pontos"

var
x1,x2,y1,y2,d:real

inicio
escreval("Calcular distância entre pontos")
escreval
escreva("Entre com o valor de X1? ")
leia(x1)
escreva("Entre com o valor de X2? ")
leia(x2)
escreva("Entre com o valor de Y1? ")
leia(y1)
escreva("Entre com o valor de Y2? ")
leia(y2)
d <- raizq( ((x2-x1)^2) + ((y2-y1)^2) )
escreva("Distância entre os pontos: ", d:5:2)

fimalgoritmo