Program Tampilan Kotak Bintang

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


Outputnya :

misal n : 15

***************
**     *     **
* *    *    * *
*  *   *   *  *
*   *  *  *   *
*    * * *    *
*     ***     *
***************
*     ***     *
*    * * *    *
*   *  *  *   *
*  *   *   *  *
* *    *    * *
**     *     **
***************