Membuat Segitiga Pascal

abdulmail - ni ada source code pascal lagi untuk membuat segitiga pascal.

Program Segitiga_Pascal;
Uses crt;
Var
i,j,n:integer;
x: array[1..100, 1..100] of integer;
Begin
Write('Masukkan Jumlah Baris: ');Readln(n);
For i:= 1 to n do
For j:= 1 to i do
Begin
if j=1 then x[i,j]:=1
else if j=i then x[i,j]:=1
else x[i,j]:=x[i-1,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;
End.

Seberti biasa., mohon koreksi & feedback kalau da yg salah.
Makasih