[lxa85]

Что то сам себе огорчаюсь, теряю квалификацию прям на ходу :(
dasha131, добавь в цикл еще одно условие. Т.е. мы проверяем чтобы все что за 3мя было нулевым, а что внутри - нет.

Код:

    
    for i:=1 to n do
    for j:=1 to n do begin
            if (abs(i-j)>l)and(a[i,j]<>0)then f:=false;

            if (abs(i-j)<l)and(a[i,j]=0)then f:=false;
    end; //for j