Salut Tony_montana21......

voila ton problém est résolut .....
(j'espére que je trouve moi aussi des solutions à mes problémes....)

program triangle;
uses crt;
const n=9;
var i,j:integer;
t:array[1..n*(n+1) div 2]of integer;
function F(i,j:integer):integer;
begin
F:=i*(i-1) div 2+(j-1)+1;
end;
begin
clrscr;
textbackground(red);
textcolor(white);
writeln(' *** LE TRIANGLE DE PASCAL ***');
writeln;
writeln;
for i:=1 to n do
begin
t[F(i,1)]:=1;
t[F(i,i)]:=1;
end;
for i:=1 to n do
for j:=2 to i-1 do
t[F(i,j)]:= t[F(i-1,j-1)]+t[F(i-1,j)];
for i:=1 to n do
begin
for j:=1 to i do
write(t[f(i,j)]:5, ' ');
writeln;
end;
readln;
end.

------------------------------------------------------------­-----------------------------------
salutttttttttttttttt   coucou !!!!!!!!!!!