SCJ2 No 7 Repeat

program soal7repeat;
uses crt;
var angka,baris,bintang:integer;
begin
        clrscr;
        write('Jumlah bintang:');
        read(angka);
        baris:=1;
        repeat
                bintang:=1;
                repeat
                        write('*');
                        bintang:=bintang+1;
                until
                        bintang>baris;
                baris:=baris+1;
                writeln;
        until
                baris>angka;
readkey;
end.