progam bintang

progam bintang

uses wincrt;
var a,b,n,c,d :integer;

begin
writeln ('============================');
writeln ('::Progam Bintang bertumpuk::');
writeln ('============================');
writeln ('');
write ('masukkan Jumlah Bintang atas= ');
readln(n);
writeln('');
for b:=n downto 1 do       {untuk b:=n turu satu sampai ('1') lalu kerjakan}
begin                         {mulai}
for a:=1 to b do       {untuk a:=1 naik satu sampai ('b') kerjakan}
begin                  
write('*');     {maka akan di tampilkan Bintang('*') }
end;
for a:=b to n do         {untuk a:=b naik satu nilai n kerjakan}
begin
write('');
end;
writeln;
end;
for b:=n downto 1 do              {untuk b:=n turun satu sampai ('1')lalu kerjakan}
begin
for c:=1 to b do                  {untuk c:=1 naik satu sampai ('b') lalu kerjakan}
begin
write('');                        {maka akan di tampilkan spasi / (' ')}
end;
for c:=b to n do                  {untuk c:= b naik satu sampai ke ('n') kerjakan}
begin
write('*');                        {maka akan di tampilkan '*'}
end;
writeln;                             {turun/enter terus kembali mengulang ke for b:=n downto 1 do}
end;
end.