Program Segitiga Pascal

program segitigs_pascal;
uses crt;
var
  i, j, n       : integer;
  x             : array [1..100, 1..100] of integer;
begin
  clrscr;
  write ('masukkan jumlah baris ; '); readln(n);
  for i := 1 to n do
    for j := 1 to i do
      begin
        if j = 1 then x[1,j]:=1
        else if j=1 then x[1,j]:=1
        else x[1,j] := x[1-j, j-1] + x[i-1,j];
      end;
  for i := 1 to n do
    begin
      gotoxy(40-3*i,2+i);
      for j := 1 to i do
        write(x[i,j]:6);
    end;
  readln;
end.