program tri;

{uses crt;}

const long_tab = 8;
type table = array[1..long_tab] of integer;

procedure saisie(var t:table);
var i,res : integer;
begin	  
   for i:=1 to long_tab do
   begin
      write(i,' ieme element ? : ');
      readln(res);
      t[i]:=res;
   end;
end; 

procedure visu(t:table);
var i : integer;
begin 
   write('[');
   for i:=1 to long_tab-1 do
   begin
      write(t[i],' ; ')
   end;
   writeln(t[long_tab],']')
end; 

procedure swap(i,j : integer ; var t : table);
{...}
begin
   {...}
end; 

procedure tri_bulle(var t : table);
var j,k : integer;
begin
   {...}
end; 

procedure tri_insertion(var t : table);
var j,k	: integer;
begin
   {...}
end; 

procedure tri_selection(var t : table);
var max_tmp,indice_max,k,i: integer;
begin
   {...}
end; 

procedure tri_neuneu(deb,fin :integer; var t : table);
var t1,t2 : integer;
begin
   {...}
end; 


procedure tri_fusion(deb,fin :integer; var t : table);
var milieu,c1,c2,c3,i : integer;
   t_intermediaire : table;
begin
   {...}
end; 


var T:table;

begin
   saisie(T);
   readln;
   visu(T);
   readln;
   tri_bulle(T);
   readln;
   visu(T);
   readln;
end.