Membuat SegiTiga Angka dengan pascal

nah... dari pada banyak main game.. atau sejenisnya.. lebih baik kita belajar membuat segitiga angka, menggunakan pascal,. logikanya sama seperti membuat segitiga bintang,, seperti yg anda lihat di atas susunan nya aja hampir sama  dengan segitiga bintang.. disini yg membuat berbeda dengan postingan sebelumnya yaitu menggunakan array... 

disini saya tidak mau banyak cerita,. maka dari itu.. kita langsung aja..

silahkan anda copy atau salin script di bawah ini...

Program Deret_Array;

var
num : array[1..100] of longint;

i, j, n, batas : integer;

begin

Write('Masukan Batas Nilai : ');
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;

end.