Program Menampilkan Bintang

Program Menampilkan_Bintang;
Uses Wincrt;
Var i,j,n:integer;
Begin
  Writeln('Program Menampilkan Bintang');
  Writeln('===========================');
  Writeln;
  Write('Masukkan Jumlah Baris: ');readln(n);
  For i:= 1 to n do
     Begin
       For j:= 1 to i do
          Write('*');
       Writeln;
     End;
End.










outputnya :
*
**
***
****
*****
******