(L2)1. Construa 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. A fórmula que efetua tal cálculo é:

algoritmo "Distância entre dois pontos"
var
x1,x2, y1, y2,distancia: real
inicio
escreva("digite x1: ")
leia(x1)
escreva("digite x2: ")
leia(x2)
escreva("digite y1: ")
leia(y1)
escreva("digite y2: ")
leia(y2)
distancia <- raizq (((x2-x1)^2)+ ((y2-y1)^2)))
escreva("distancia=",distancia:5:1)
fimalgoritmo