Program CETAK BINTANG DESCENDING (PASCAL)

LATIHAN _ PRA-UTS

program star_descending;

uses crt;

var

n,i,j : integer;

begin

                                write('Masukkan angka untuk mencetak bintang : '); readln(n);

                                for i := n downto 1 do

                                begin

                                         for j := 1 to i do

                                         begin

                                         write ('*');

                                         end;

                                writeln( );

                                end;

readln;

end.