for

program Star;
uses wincrt;
var a, r, z, n : integer;
begin
write('masukkan n :');readln(n);
writeln('**Gambar Piramida Terbaliknya**');
//for a:= n downto 1 do
a:=n;
while(a>1) do
begin
writeln('');
z:=1;
while (z<=n-a) do
//for z:=1 to n-a do
begin
write(' ');
z:=z+1;
end;

r:=1;
//for r:=1 to a do
while(r<= a) do
begin
write ('*');
r:=r+1;
end;

r:=a-1;
while(r<1) do
//for r:= a-1 downto 1 do
begin
write ('*');
r:=r+1;
end;

a:=a+1;
end;
readln;
end.