alg Ex 01) Construa um algoritmo que tendo como dados de entrada dois pontos quaisquer no plano, P(X1,Y1) e d(X2-x1) + (y2-y1)²

Algoritmo"Calcula a distancia"
Var
X1,y1,x2,y2 diastancia: real
inicio
Escreva("digite x1 :")
Leia(x1)
Escreva("digite y1:")
leia(y1)
Escreva("digite x2:")
Leia(x2)
Escreva("digite y2:")
Leia(y2)
D<-raiz q(((x2-x1)^2))+(y2-y1)))
Escreva("a distancia entre os dois pontos eh ",d:5:2)
Fimalgoritmo