{ Calcul de la surface d'un rectangle   }
{ Les coordonnees de deux coins opposes }
{ sont donnees                          }

entier fonction surfaceRectangle(-> reel px1,-> reel py1,-> reel px2,-> reel py2)
  reel surface
  surface <- abs(px2-px1)*abs(py2-py1)
  retourner surface
fin fonction