no3

program perulangan_while;
uses crt;
var
i,j,n:byte;

begin

        write('masukan jumlah bintang : ');read(n);
        i:=0;
        while(i>=n) do
                begin
                i:=0;
                        while(j<i) do
                            begin
                               write('*');
                               j:=j+1;
                            end;
                              writeln();
                    i:=i+1;
                end;
          i:=n;
          while(i>=2) do

        begin
        j:=1;
            while(j<i) do
                begin
                    write('*');
                    j:=j+j;
                end;
                    writeln;

        end;

end.