structure Point
{
  X,Y : réel
}

fonction SaisirPoint() : Point
{
     variable P : Point
     Afficher("Saisissez les coordonnées du point ")
     Saisir(P.X,P.Y)
     retourne P
}

fonction distance(E P1 : Point, E P2 : Point) : réel
{
    retourne racine_carre((P1.X-P2.X)*(P1.X-P2.X)+(P1.Y-P2.Y)*(P1.Y-P2.Y))
}

Algorithme Utilisation_Points
{
        variable A,B : Point
                 dist : réel
        
        A <-- SaisirPoint()
        B <-- SaisirPoint()
        
        dist <-- distance(A,B)
        
        Afficher("La distance entre (",A.X,",",A.Y,") et (",B.X,",",B.Y,") est de ", dist,".\n")
         
}