segitiga_pascal

program segpas;
uses crt;

  function fak(n:integer):longint;
  var
    hasil : longint;
    i:integer;
  begin
    hasil:=1;
    for i:=1 to n do
       hasil:=hasil*i;
    fak:=hasil;
  end;

  function kombinasi(n,r:integer):real;
  begin
     kombinasi := fak(n)/(fak(n-r)*fak(r))
  end;

  procedure cetak_spasi(n:integer);
  var
   i:integer;
  begin
    for i:=1 to n do
        write(' ':2);
  end;

  procedure cetak_kombinasi(n:integer);
  var
    i:integer;
  begin
     for i:=0 to n do
        write(kombinasi(n,i):5:0);
  end;

var
 i,n : integer;
begin
 clrscr;
 n:=10;
 for i:=0 to n do
 begin
    cetak_spasi(n-i);
    cetak_kombinasi(i);
    writeln;
 end;
 readkey;
end.