Distancia entre dois pontos

Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer do plano, P(x1, y1) e P(x2,y2), escreva a distância entre eles.
A fórmula que efetua tal cálculo é:
d=raizq(((x2-x1)^2) + ((y2-y1)^2))

algoritmo "Plano cartesiano Ex.1"
var
   x1,x2,y1,y2,resultado:real
inicio
      escreval(">>Primeiro ponto(X1,Y1)")
      
      escreval("Informe o valor do X1:")
      leia(x1)

      escreval("Informe o valor do Y1:")
      leia(y1)
      
      ////////////Segundo ponto
      escreval(">>Segundo ponto(X2,Y2)")
      
      escreval("Informe o valor do X2:")
      leia(x2)
      
      escreval("Informe o valor do Y2:")
      leia(y2)
      
      resultado<- raizq(((x2-x1)^2) + ((y2-y1)^2))
      ////Realizando e mostrando o cáculo
      escreva("O resultado é:",resultado:5:2)
fimalgoritmo