Prgram Gambar Piramid

Program Menampilkan_Bintang;
Uses crt;
Var i,j,n:integer;
Begin
clrscr;
Writeln('Program Menampilkan Bintang Bentuk Segitiga');
writeln('Dengan FOR TO DO');
Writeln('——————————————-');
Writeln;
Write('Berapa Jumlah Bitang: ');readln(n);
For i:= 1 to n do
Begin
For j:= 1 to i do
Write('*');
Writeln;
End;
readkey
End.