programme_distance() :=
{
local xa,ya,xb,yb,d; // les variables pour les coordonnées et la distance
saisir(xa); // saisie des coordonnées
saisir(ya);
saisir(xb);
saisir(yb);
d:= sqrt((xb-xa)*(xb-xa)+(yb-ya)*(yb-ya)) ; // calcul de la distance
afficher(d) ; // affichage de la distance
}