Formasi Bintang Bentuk Wajik (PASCAL)

Sekarang saya akan mencoba sharing code dalam bahasa pemrograman pascal untuk membentuk formasi bintang yang membentuk wajik atau diamond dalam permainan kartu 
seperti dibawah ini

dan ini dalam bahasa pemrogramannya

program bintang_wajik;
uses crt;
var
        i,j,n: integer;
begin
        clrscr;
         write ('n= ');
        readln(n);
        for i:= 1 to n do
           begin
              for j:=1 to n do
                  begin
                      if ((i+j=n div 2+2) or (i-j=n div 2) or (i+j=n+(n div 2+1)) or (j-i=n div 2)) then
                          write('*')
                       else
                           write (' ');
                       end;
                    writeln;
                end;
         readln;
end.

ada sedikit kekurangan dari program tersebut apabila kita memasukan nilai n dengan bilangan genap maka hasilnya tidak sesempurna jika kita memasukannya dengan nilai ganjil

SELAMAT MENCOBA J