turbo pascal 1.5 - perulangan bersarang 2

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:=1 to i do
          begin
               write('*');
          end;
          writeln;
     end;

end.