Что означает каждая из этих строчек..плииииз очень надо!!!!
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<br>
if (i>=j) and (i+j>=n+1) then write(1) else
write(0);
writeln;
end;
readln;
end.