QUESTION OF LIFE

program deret_segitiga;
uses wincrt;
var
i,angka,a,b:integer;
bil:array[1..100]of integer;
next:array[1..100]of integer;
deret,kolom,kol:integer;
begin
clrscr;
gotoxy(22,1);writeln('Menghitung Jumlah Deret');
gotoxy(22,2);writeln('___________________________');
writeln;
kolom:=40;
write('Masukkan Jumlah Deret :');readln(deret);
writeln;
next[1]:=0;
next[2]:=1;
next[3]:=0;
kol:=kolom;
gotoxy(kol,wherey);
writeln(1);
for a:=2 to deret do
begin
kolom:=kolom-2;
kol:=kolom;
for b:=1 to 100 do
bil[b]:=next[b];
for b:=1 to a do
begin
angka:=bil[b]+bil[b+1];
gotoxy(kol,wherey);
write(angka);
next[b+1]:=angka;
next[b+2]:=0;
kol:=kol+4;
end;
writeln;
end;
end.