Bintang-Bintang

Program bintang_bintang;
Uses Wincrt;
Var
n, i, j : integer;
Begin
Clrscr;
Writeln;
Write (‘ Masukkan jumlah bintang : ‘ ); Readln (n);
For i:= 1 To n Do
Begin
For j:= 1 To I Do
Write ( ‘*’ );
Readln;
End;
End.