Program Segitiga Pascal

program segitiga_pascal;
uses crt;
var    i,j,baris : integer;
         isi : array[1..100, 1..100] of integer;
begin
       write('masukkan jumlah baris: '); readln(baris);
       for i:= 1 to n do
             for j:= 1 to i do begin
                  if j=1 then isi[i,j]:=1 {jika kolom pertama}
                  else if j=i then isi[i,j]:=1 {jika kolom terakhir}
                  else isi[i,j]:=isi[i-1,j-1]+isi[i-1,j]; {jika kolom di tengah}
            end;

        {bagian mencetak segitiga}
         for i:= 1 to n do begin
               gotoxy(40-3*i,2+i);
               for j:= 1 to i do write(isi[i,j]:6);
         end;
end.