Program Segitiga Pascal

uses crt;
var num:array[1..100] of longint;
i,j,n,batas:integer;
begin
clrscr;
Writeln('-----------------------------------------');
Writeln('************************************');
Writeln('* Program Segitiga Pascal *');
Writeln('************************************');
Writeln('-----------------------------------------');
Writeln;
write('Masukkan nilai n : ');
readln(n);
Writeln;
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;
Writeln;
Writeln;
Writeln(' ------------------- By Sugi Complete -------------------- ');
readln;
end.