Program Menampilkan Bintang di Pascal

Program Menampilkan Bintang di Pascal, Selamat mencoba dengan program berikut ini :

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.

Selamat mencoba semoga berhasil !
 Pengunjung yang baik selalu meninggalkan komentarnya !!