Двумерная матрица - Pascal

Формулировка задачи:

Помогите пожалуйста решить задачу В матрице A=(a[i,j] (i,j=1,2,...,n) каждый элемент равен 1,2,3 или 4. Подсчитайте количество четверок a[i,j],a[i,j+1],a[i+1,j],a[i+1,j+1], в каждой из которых все элементы различны; n=6

Решение задачи: «Двумерная матрица»

Листинг программы

uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,k,p,q,sm,pr:integer;
begin
ClrScr;
randomize;
Writeln('Введенная матрица...');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(4)+1;
    Write(a[i,j]:3);
   end;
  Writeln;
 end;
k:=0;
for i:=1 to n-1 do
for j:=1 to n-1 do
 begin
  sm:=0;pr:=1;
  for p:=i to i+1 do
  for q:=j to j+1 do
   begin
    sm:=sm+a[p,q];
    pr:=pr*a[p,q];
   end;
  if(sm=10)and(pr=24)then k:=k+1;
 end;
write('Всего четверок=',k);
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для работы с числами с плавающей точкой.
Затем определяется константа n, которая определяет размерность двумерной матрицы (в данном случае 6).
Далее объявляются переменные a, i, j, k, q, sm и pr. Переменная a представляет собой двумерную матрицу целых чисел размером n x n. Остальные переменные используются для различных вычислений и циклов.
Выводится сообщение Введенная матрица..., предлагающее пользователю ввести матрицу.
Затем идет цикл for, который проходит по каждому элементу матрицы (от 1 до n) и выполняет следующие действия:
- внутри первого цикла for выводится значение каждого элемента матрицы (от 1 до n) с помощью Write(a[i,j]:3);
- после завершения внутреннего цикла for выводится символ новой строки Writeln;
- после завершения внешнего цикла for выводится символ новой строки Writeln;
Далее идет еще один цикл for, который проходит по каждому элементу матрицы (от 1 до n-1) и выполняет следующие действия:
- внутри второго цикла for вычисляются суммы sm и произведения pr для каждой пары соседних элементов матрицы (от i до i+1 и от j до j+1) с помощью вложенных циклов for.
- если выполняется условие sm = 10 и pr = 24, то переменная k увеличивается на 1.
В конце выводится сообщение Всего четверок=, которое показывает количество пар соседних элементов матрицы, удовлетворяющих условию.
Конец программы.