Hvezdicky trojuhelnik zarovnan – Pascal – Fórum – Programujte.com

Prosím o pomoc s následujícím úkolem máme za úkol  vykreslit trojuhelnik který bude zarovnan. Priklad zadam 3 a vykresli to 3 rady.  

    *

  * * *

* * * * *

Poradte nejak nechci kod chci tak abych na to nejak došel.

tak si spocitej kolik je na kazdy radce mezer, kolik hvezdicek a udelej si z toho ciselny rady (idealne odvozeny od nejakeho vzestupneho cisla (napriklad sekvence 1, 2, 3 .... N)

Program trojuhelnik;
uses crt;
var I,J,N, MEZERY, HVEZDY : byte;

begin
writeln('Zadej pocet rad trojuhelniku: ');
read(N);

    for I:=1 to N do 
                    begin
                    
                          for J:=1 to N do write(' ');
                          for J:=1 to (N*2)-1  do write('*');
                        
                          writeln;
                          N:=N-1;
                           
                          
                    end;
    

    repeat until keypressed;

end.


//    *      1. radek (1 hvezdicka, 4 mezery)
//   ***     2. radek (3 hvezdicky, 3 mezery)
//  *****    3. radek (5 hvezdicek, 2 mezery)
// *******   4. radek (7 hvezdicek, 1 mezera)
  

// hvezdicky= (N*2)-1
// mezery = N  

Díky za pomoc skoro jsem na to přišel ale nefunguje mi to ještě přesně, zítra to snad doladím...