program kwadrat;
uses
crt;
var
kwadracik : ARRAY [0..6] of ARRAY [0..10] of char;
i,n,a,b,c,j,x,t,y,k,s,l: integer;

PROCEDURE zapelnij();
begin

for n:=0 to 6 do
    begin
         writeln('');
         for i:=0 to 10 do
         begin
              kwadracik[n][i]:='0';

         end;

    end;
end;
PROCEDURE pokaz();
begin
for t:=0 to 6 do
    begin
         writeln('');
         for y:=0 to 10 do
         begin
              write(kwadracik[t][y]);

         end;


end;

end;

PROCEDURE rosnij();
begin
     k:=0;
     s:=0;
     l:=5;
     j:=1;
     while (k<4) do
     begin
        kwadracik[3-k][5]:='X';
        while(l<l+s) do
        begin
           kwadracik[3-k][l]:='X';
           kwadracik[3-k][l-j]:='X';
           kwadracik[3+k][l]:='X';
           kwadracik[3+k][l-j]:='X';
           l:=l+1;
           j:=j+2;
        end;
        for c:=3-k to 3+k do
        begin
           kwadracik[c][l+s]:='X';
           kwadracik[c][l-s]:='X';
        end;
     pokaz();
     Delay(300);
     clrscr;
     zapelnij();
     s:=s+1;
     k:=k+1;
     end;
end;

begin

  zapelnij();
  rosnij();
  readkey;
end.