SCJ2 No 7 For

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