Program Cetak bintang Ascending (PASCAL)

Program Barisan_Bintang;
uses crt;

var
n,i,j:integer;

begin
 write('Masukkan jumlah baris bintang : '); readln(n);
 writeln('================================');

 for i:=1 to n do
     begin
     for j:=1 to i do
     write('*');
     writeln();
    end;

 readkey();

end.