program untuk membuat bintang-bintang pada pascal

        Bagi teman yang ingin membuat program bintang-bintang di pascal dengan tampilan seperti disamping, bisa
mempelajarinya disini.















Uses crt;
Var
I,j,k,a,b:integer;
Begin
clrscr;
 write(' masukkan angka : ');readln(a);
 For k:= 1 to a do
 Begin
   For j:= 1 to k do
   Write('*');
   Writeln;
 End;
 For k:=1 to a do
 Begin
   For j:=a-1 downto k do
   Write('*');
   Writeln;
 End;
write(' Create by greenlife ');
Readln;
End.