Нахождение квадрата

## var (N,M) := ReadInteger2('N,M =');
var A := MatrRandom(N,N, 0,1).Println;
 
var TestPos := function(row1,col2: integer): boolean->
begin
  Result := false;
  var col1 := col2-(M-1);
  var row2 := row1+(M-1);
  for var row := row1+1 to row2-1 do
  begin
    if A[row,col1]<>1 then exit;
    if A[row,col2]<>1 then exit;
  end;
  for var col := col1 to col2 do
    if A[row2,col]<>1 then exit;
  Result := true;
end;
 
for var row := 0 to N-M do
begin
  var row_c := 0;
  
  for var col:= 0 to N-M do
  begin
    if A[row,col]=1 then row_c += 1 else row_c := 0;
    if row_c<M then continue;
    if TestPos(row,col) then
    begin
      ((row,col-M+1)).Println;
//      exit;
    end;
  end;
  
end;

## var (N,M) := ReadInteger2('N,M =');
var A := MatrRandom(N,N, 0,1).Println;
 
var Test := function(a: array of integer): boolean->a.All(x->x=1);
for var row := 0 to N-M do
  for var col:= 0 to N-M do
  begin
    var sA := A[row:row+M,col:col+M];
    if Test(sA.Row(0)) and Test(sA.Row(M-1)) and Test(sA.Col(0)) and Test(sA.Col(M-1)) then
    begin
      ((row,col)).Println;
      sA.Println;
//      exit;
    end;
  end;