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 “Calcula a distância”
  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 (“A distância é de”, distancia:6:2)
 fimalgoritmo