Cara Membuat bintang versi 2 menggunakan program pascal

uses wincrt;

var
i,j :integer;

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

     begin
     write ('*');
     end;
     writeln;
end;
end.

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn