turbo pascal 1.5 - perulangan bersarang 3

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

var
     i,j,N :integer;

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

     for i:=n downto 1 do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;

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

end.