Program CETAK BINTANG VARIASI (PASCAL)

program star_variasi;

uses crt;

var

n, i, j, k : integer;

begin

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

for i := 1 to n do

begin

     writeln ('*');

     for j := 1 to i do

     begin

          for k := 1 to 4 do

          begin

          write('*');

          end;

          writeln;

     end;

end;

writeln('*');

readln;

end.

TAMPILANNYA SEBAGAI BERIKUT: