// Médiane d'une série statistique S
// Entrées
S=input("S=");
// Traitement des données
n=size(S,"c");// n est la longueur de S.
Y=trier(S);
r=reste(n,2);
q=quotient(n,2); 
  if r==0 then 
    med=(Y(q)+Y(q+1))/2; 
  else 
    med=Y(q+1); 
  end
// Sorties
disp('La médiane de S est égale à ' +string(med))