Program Triangle_Pascal;
Type matrice = Array [1..15, 1..15] of Integer;
Var T : matrice; N : Integer;
Procedure triangle (n : Integer ; Var T:matrice);
Var l, c : Integer;
Begin T[1,1]:=1;
For l:=2 To n Do 
Begin
T[l,1]:=1;
For c:=2 To l-1 Do 
T[l,c]:=T[l-1,c]+T[l-1,c-1];
T[l,l]:=1;
End;
End;
Procedure Afficher (n : Integer ; T:matrice);
Var l, c : Integer;
Begin
For l:=1 To n Do 
Begin
For c:=1 To l Do 
Write (T[l,c], ' ');
Writeln ;
End;
End;
(*********************************************)
Begin
Repeat
Writeln ('Donner la taille du triangle : ');
Readln (n);
Until n in [2..15];
Triangle (n, T);
Afficher (n, T);
End.