Program Bintang Menurun

program bbb;
Uses wincrt;
var i,j,n : integer;
Begin
  clrscr;
  n := 5;
  for i:=n downto 1 do
  begin
    if i <= n then
    begin
      for j:=1 to (n-i)  do
        write(' ');
      for j:=1 to i do                 
        write('*');
        writeln;
    end;
  end;
end.