برنامه ای بنویسید که شکل زیر را در خروجی چاپ کند؟

[farshad200]

سلام.با زبان پاسکال می خواستم برنامه ای بنویسم که این شکل رو در خروجی نمایش دهد:
این دستورات را نوشتم ولی شکلی دیگری را چاپ می کندرا چاپ می کند.لطفا در مورد نوشتن کد راهنمایی کنید.

کد:

USES WINCRT;
VAR I,j,N:INTEGER;
BEGIN
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do
   write('  ');
   for j:=1 to 2*i-1 do
   write('*');
   readln;
end;
END.

[تقدسی]

با سلام
الگوریتم زیر را امتحان کنید:

کد:

USES WINCRT;
VAR I,j,n,k:INTEGER;
BEGIN
readln(n);

        n = 3;
    k = 3;
   
    For i = 1 To n
        For j = 1 To k
           write(" ") ;
  For j = 1 To n - k + 1
            write( "*");
             
      write( "")
        k = k - 1;
 
   
    n = 4;
    k = 0;
   
    For i = 1 To n
        For j = 1 To k
          write( " ");
             
        For j = 1 To n - k
         write("*");
       
       
        write( "")
        k = k + 1;

end.

[farshad200]

سلام.برنامه را اجرا کردم ولی متاسفانه خروجی مورد نظر را ندرد .فقط 5 تا ستاره را در یک سطر چاپ می  کند.