Что означает каждая из этих строчек..плииииз очень надо!!!!

 uses crt;

var i,j,n: integer;

begin
write('n=');
readln(n);

for i:=1 to n do
 
   begin
  for j:=1 to n do
 
       if (i=1) or (i=n) then write(0) else

           if (i<=j) and (i+j<=n+1) then write(1) else
             
if (i>=j) and (i+j>=n+1) then write(1) else
               
 write(0);
 
   writeln;
   
end;

readln;

end.