1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
    binomialkoeffizient:int64;
function fak(n:integer):int64;
var f:int64;
    i:integer;
begin
    f:=1;
    for i:=1 to n do f:=f*i;
    fak:=f;
end;
begin
    n:=strtoint(edit1.Text);
    memo1.Clear;
    for i:=1 to n do
    begin
      binomialkoeffizient:=fak(n) div fak(n-i) div fak(i);
      memo1.lines.add(inttostr(n)+#9+inttostr(i)+#9+inttostr(binomialkoeffizient));
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function bin(n,k: longint): longint;
  { binomial(n,k) = n!/k!/(n-k)! = n*(n-1).../k!}
var
  b, i: longint;
begin
  b := n;
  for i:=2 to k do b := b*(n+1-i) div i;
  bin := b;
end;

begin
  writeln(bin(25,9));
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var
  a : array[0..25] of LongInt;

procedure pasdreieck(L:longint);
var
  j,k: longInt;
begin
  a[0] := 1;
  j    := 0;
  while (j<L) do begin
    inc(j);
    k := (j+1) div 2;
    a[k] :=a[k-1];
    For k := k downto 1 do
      a[k] := a[k-1] + a[k];
    end;
end;

var
  i: longint;
Begin
  pasdreieck(25);
  For i := 0 to 12 do
    Write(i:3,a[i]:12,'|');
  // Wegen Symmetrie    
  For i := 13 to 25 do
    Write(i:3,a[25-i]:12,'|');
end.