programme_longueur_hypothenuse() :=
{
local cote1, cote2,hypo ;
saisir(cote1) ;
saisir(cote2) ;
hypo := sqrt(cote1*cote1+cote2*cote2) ;
afficher(hypo) ;
}