bonjour,
guadratique ?
au pif..

procedure TriangleDePascal(param : integer);
var
  L, C: integer;
  function Assemblage(x, y: integer): integer;
  begin
    if (x = 1) or (y = x) then
      Assemblage := 1
    else
      Assemblage := Assemblage(x, y - 1) + Assemblage(x - 1, y - 1);
  end;
begin
  for L := 1 to param do
    for C := 1 to L do
      form1.canvas.textOut(C * 30, L * 30, inttostr(Assemblage(C, L)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TriangleDePascal(10);
end;

cantador

Alors maman jolie ?

Quadratique ?

cantador