program p49;
uses wincrt;
type
Tab = Array[1..10,1..10]of integer;

procedure remplir (n:integer;var T:Tab);
var
i:integer;
begin
for i := 1 to n do
begin
T[1,i] := 1;
T[i,i] := 1;
end;
end;


procedure cal (n:integer;var T:Tab);
var
i,j:integer;
begin
    for i := 3 to n do
    begin
      for j :=2 to i-1 do
      begin
       T[i,j] := T[i-1,j]+T[i-1,j-1] ;
   end;
end;
end;


procedure affichage(n:integer;T:Tab);
var
i,j:integer;
begin
for i := 1 to n do
begin
    for j := 1 to i do
    begin
        write(T[i,j]);

    end;
   writeln('');
end;
end;

var
T:Tab;
n:integer;
begin
 repeat
  write('n = ');
  readln(n) ;
until(n>2);

remplir(n,T);
cal(n,T);
affichage(n,T);
read(n);
end.