Вывести на экран перевернутый треугольник из звездочек

program a_44;
var i, j, b:integer;
begin
b:=10;
  for i:=1 to 5 do
  begin
    for j:=i to b-i do
      write(' ','*');
    writeln;
  end;
 
end.

var p, z, n, i: integer;
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  p := 0; //p(1)
  z := n; //z(1)
  while z >= 1 do
    begin
      for i := 0 to p do write(' ');
      for i := 1 to z do write('*');
      writeln;
      inc(p); //p := p + 1;
      dec(z, 2) //z := z - 2;
    end;
  readln
end.

var n, i, j: integer;
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  for i := 0 to n div 2 do
    begin
      for j := 1 to i do write(' ');
      for j := 1 to n - i * 2 do write('*');
      writeln
    end;
  readln
end.

procedure Zvezdy(n,k:byte);
var i:byte;
begin
for i:=0 to k div 2 do write(' ');
for i:=1 to n-k+1 do write('*');
writeln;
if k<n then Zvezdy(n,k+2);
end;
var n:byte;
begin
write('n=');
readln(n);
Zvezdy(n,1);
end.