الخوارزمية

program project1;
var
  som,i,j,x:integer;
  T:array[1..8] of integer;

begin
  writeln('remplir la table T:');

  for i:=1 to 8 do
    begin
    writeln('entree la valeur de case numero: ',i);
    readln(t[i]);
    end;

//---------------------------------------------------------------
  som:=0;
    for i:=1 to 8 do
    begin

    som:=som +t[i];
    end;
  writeln('la somme des case de tableau est : ',som);

//----------------------------------------------------------------
for i:=0 to 8 do
  begin
  for j:=i+1 to 8 do
     begin
      if t[i] > t[ j] then
        begin
         x:=  t[i];
         t[i] :=t[ j];
         t[j] :=x;
        end;
     end;
  end;

//---------------------------------------------------------------------
  writeln('-----');
     for i:=1 to 8 do
    begin
    writeln('-----');
    writeln('| ',t[i],' |');
    end;
    writeln('-----');

    ReadLn;
    ReadLn;

end.