Segitiga Pascal (Turbo Pascal)

{ Segitiga Pascal
  g0tch4.blogspot.com }

uses crt;
var num:array[1..100] of longint;
i,j,n,batas:integer;
begin
        clrscr;
        write('Masukkan n: ');
        readln(n);
        num[1]:=1;
        writeln(1);
        for i:=1 to n do
        begin
            batas:=(i+1) div 2;
            if not odd(i) then num[batas+1]:=num[batas]*2;
            for j:=batas downto 2 do num[j]:=num[j]+num[j-1];
            for j:=1 to batas do write(num[j],' ');
            if not odd(i) then write(num[batas+1],' ');
            for j:=batas downto 1 do write(num[j],' ');
            writeln;
       end;
       readkey;
end.