tableau_ex5

program tableau_ex5;
uses wincrt;
type
tab=array [1..20] of integer;
var
T:tab;
p,x,n,i:integer;
procedure ins_tab(var t1:tab;k,l:integer);
begin
t1[l]:=k;
end;
begin
repeat
writeln('entrer n');
readln(n);
until n in [1..20];
for i:=1 to n do
begin
writeln('entrer l"�lement Num�ro: ',i);
readln(t[i]);
end;
writeln('entrer x');
readln(x);
repeat
writeln('entrer la position d"insertion');
readln(p);
until p in [1..n];
ins_tab(t,x,p);
writeln;
writeln;
for i:= 1 to n do
writeln('l"element numero ',i,' est: ',t[i]);
writeln;
writeln;
writeln('Press <Enter> To Quit');
  readln();
end.