Program Looping Bintang

program loopin_bintang;
uses
crt; {'crt' ganti dengan 'wincrt' jika kamu menggunakan sistem operasi windows}

var
n,i,j:integer;

begin
write('Masukan jumlah looping: '); readln(n);
for i := 1 to n do
        begin
        for j := 1 to i do
                write('*');
        writeln;
        end;
end.