Das Haus vom Nikolaus Konsolenanwendung

[AoN]

So hat man das ganze Haus; bei a wird die Größe eingegeben (Bis max. 80, da es sonst nicht mehr in die Konsole passt ).
Das mit a MOD ist da sonst die Diagonalen nicht ganz passen würden.

Code:

program Project1;
{$AppType Console}
var i, a, c, j: integer;
begin
   a := 10;
   if (a MOD 2) = 1 then
    a := a+1;
   c := (a div 2);
   for i := 0 to a do
   begin
    for j := 0 to a do
     if
    (((i=j) and (i>c)) or
    ((a-j=i) and (j<=c)))
    then
     write('X')
    else
     write(' ');
   writeLn
  end;
  for i := 0 to a do
  begin
   for j := 0 to a do
    if
    ((i=0) or (j=0) or (j=a) or (i=a) or (i=j) or (a-j=i))
    then
     write('X')
    else
     write(' ');
   writeLn
  end;
  readLn
end.

Viel Spaß damit =)