pascal编程打印下列图形,要快

var i,j:longint;
begin
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if (i=j) or (i+j=8) then write(1) else write(0);
if j