Текст задания

Дана матрица размерности n х n (двумерный массив). Массив состоит из чисел 0, 1, 2, 3. Требуется распечатать индексы таких элементов матрицы, которые являются верхней левой вершиной квадрата 2 х 2, состоящего из одинаковых  элементов.

Исходный код программы

Program MN_7;
uses crt;
var
i,j,n:integer;
a: array[1..20,1..21] of integer;
b: array[1..4, 1..4] of integer;
begin
clrscr;
Write('n=');			{задаем размер матрицы}
readln(n);
For i:=1 to n do		{цикл для ввода элементов матрицы}
 begin
  for j:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 end;
Writeln('vvedite element matrici 2x2:'); {вводим элемент квадрата 2х2}
readln(b[1,1]);
for i:=1 to 2 do		{в цикле задаем все элементы квадрата одинаковыми}
 begin
  for j:=1 to 2 do
   begin
    b[i,j]:=b[1,1];
   end;
 end;
Writeln('indeksi:');
for i:=1 to n do		{в цикле проверяем условие задачи}
 begin
  for j:=1 to n do
   begin
    if a[i,j]=b[1,1] then
    writeln(i,', ',j);		{если выполняется, то выводи индексы на экран}
   end;	
 end;
readln;
end.

Результат работы программы