Membuat Segitiga Pascal

program segitiga_pascal;
uses wincrt;
type pas=array [1..20,1..20] of longint;
var pascal : pas;
    i,j,n : integer;
begin
  pascal[1,1]:=1;
  write('Banyak Level :');readln(n);{:=10;}
   for i:=2 to n do
    begin
     pascal[i,1]:=1;
     Pascal[i,i]:=1;
      for j:=2 to i-1 do
       pascal[i,j]:=pascal[i-1,j-1]+pascal[i-1,j];
    end;
{write(pascal[2,1],'');
   writeln; }
 for i:=1 to n do
  begin
    for j:=1 to i do
      write(pascal[i,j]);
      writeln;
  end;
end.

Jika program diatas Kita RUN maka akan menghasilkan output seperti dibawah ini :