CONTOH PROGRAM PASCAL PERULANGAN BERSARANG

program segitigabintang;  {program menampilkan karakter bintang sebanyak N baris}

uses wincrt;

var

     i,j,N :integer;

begin

writeln('            =================================================         ');
writeln('');
writeln('                  PROGRAM KARAKTER BINTANG                        ');
writeln('                    Dibuat oleh ricky coebra                          ');
writeln('                       @copyright 2013                                ');
writeln('');
writeln('            =================================================         ');

     write(' berapa jumlah baris bintang : '); readln(N);

     writeln;

     for i:=n downto 1 do

     begin

          for j:=1 to i do

          begin

               write(' ');

          end;

          for j:=i to N do

          begin

               write('*');

          end;

          writeln;

     end;

end.