SCJ2 No 7 While

program soal7while;
uses crt;
var angka,bintang,baris:integer;
begin
        clrscr;
        write('Masukkan jumlah bintang:');
        read(angka);
        baris:=1;
        while baris<=angka do
        begin
                bintang:=1;
                while bintang<=baris do
                begin
                        write('*');
                        bintang:=bintang+1;
                end;
                baris:=baris+1;
                writeln;
        end;
readkey;
end.