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: