Javaxsource :: Membuat Segi Enam bintang dengan Pascal

Kita bisa menggunakan perulangan untuk membuat sebuah segi enam dengan pascal

Urutan Logikanya
1.Membuat Trapesium atas
2.Membuat persegi panjang
3.Membuat trapesium bawah
berikut coding yang saya buat dari pascal

uses crt;

var i,j,k:integer;
n:char;
begin
clrscr;
write('Masukkan Karakter :');readln(n);
for  i:= 2 to 5  do
begin
      for  j := 4 downto i do//buat spasinya
      write(' ');
              for  k := 1 to 2*i do
              begin
              textcolor(i-1);
              write(n);
              end;
      writeln();
end;
for i:=1 to 2 do
begin
      for j:=1 to 10 do
      begin
      textcolor(4+i);
      write(n);
      end;
writeln();
end;
      for  i:= 5 downto 2  do
      begin
              for  j := 4 downto i do
              write(' ');
                      for  k := 1 to 2*i do
                      begin
                      textcolor(k);
                      write(n);
                      end;
       writeln();
       end;


readkey;
end.