algorithmique

program trieinser;
uses wincrt  ;
type
tab= array [1..30] of integer;
var t:tab;
    n:integer;
procedure trie(n:integer;var t:tab);
var i:integer;
begin
for i:=1 to n do
begin
writeln ('t[',i,'] ');
readln(t[i]);
end;
end;
procedure tt(n:integer;var t:tab );
var   k,j,x:integer;

begin
for k:=2 to n do
begin
x:=t[k];
j:=k;
while((x<t[j-1]) and ( j>1))do
begin
t[j]:=t[j-1] ;
j:=j-1;
end;
if j<k then t[j] :=x;
   end;
   end;
   procedure affi(n:integer; t:tab);
   var l :integer;
   begin
   writeln('***********************************************************************************************');
   for l:=1 to n do
   begin
   writeln(t[l]);
   end;
   end;
   begin
   writeln ('donner les elements de tableau ');
   readln (n);
   trie(n,t);
   tt(n,t);
   affi(n,t);
   end.