Program CETAK BINTANG PIRAMIDA (PASCAL)

program pola_Bintang;
uses crt;

var
n,m,i,j,k,l : integer;
PIL: CHAR;

begin
REPEAT
  writeln('Program bintang');
  writeln('==============');
  write('Masukkan nilai untuk pola bintang  = ');readln(n);
  begin
       for i := 1 to n do
       begin
            for j := n-i downto 1 do
            begin
            write(' ');
            end;
            for k:= 1 to (i-1+i) do
            begin
            write('*');

            end;
            writeln;
            end;

       end;


   writeln;
   write (' Apakah anda ingin mengisi kembali ?(Y/T) = ');readln(pil);
   writeln;

   until pil = 't';

 end.