Cara Membuat bintang versi 1 menggunakan program pascal

uses wincrt;

var
i,j :integer;

begin
for i := 5 downto 1 do
    begin
     for j := 1 to i do

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

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn