Program Segitiga Pascal

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

i,j,n,batas:integer;

begin

print("Masukkan 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.