PROGRAM tri;
uses crt;

VAR chaine:array[1..50] of integer;
    temp,max_val:integer;
    b , c, d:INTEGER;

BEGIN
clrscr;
write ('Combien de valeurs dans la suite ? ');
readln (c);
d:=c;
write ('Entrez la suite de valeurs, suivies par return: ');
for b:=1 to c do readln (chaine[b]);
max_val := chaine[1];

for b:=1 to c do
  BEGIN
  if (chaine[b] > max_val) or (chaine[b] = max_val) then max_val := b;
  temp:=chaine[c];
  chaine[c]:=chaine[max_val];
  chaine[max_val]:=temp;
  c:=c-1;
  max_val:=0
  END;
for b:=1 to d do write (chaine[b]);

readln
END.