Membentuk Segitiga bintang dengan pascal

program segitiga_bintang;
{membentuk segitiga bintang dengan tinggi segitiga=n}
uses crt;
var
   n,i,j : integer;
begin
clrscr;
     write('Tinggi segitiga n = ');
     readln(n);
     {buat bagian segitiga dari baris 1 hingga n}
     for i:=1 to n do
         begin

              for j:=1 to i do
                  write('*');
          writeln;
     end;


     {buat bagian pencerminan dari setengah segitiga pertama}
     for i:=n-1 downto 1 do
         begin
              for j:=1 to i do
                  write('*');
         writeln;
     end;
end.


hasil output :

segitiga bintang

Pada gambar segitiga bintang diatas untuk contoh n=5. Baris ke-1 terdiri dari 1 bintang, baris ke-2 dua bintang,.. dst hingga baris ke-5 lima bintang. Baris ke-i terdiri dari i bintang. Setelah baris ke-n, baris-baris selanjutnya merupakan pencerminan dari baris n-1 sampai baris 1.