Задача 3 Урок 16

Задача 3 Урок 16:

Есть функция, которая считает сумму четырех чисел:

function sum4(a, b, c, d: integer): integer;
begin
  result := a + b + c + d;
end;

Реализуйте обертку над sum4(), которая делает то же самое, но имеет сигнатуру вида:

type ar = array[1..2, 1..2] of integer;
 
function searchRes2(a1:ar): integer;

program u16z3;
type
  ar = array[1..2, 1..2] of integer;
var
  a,b,c,d,i,j: integer;
  a1: ar;

function sum4(a, b, c, d: integer): integer;
begin
  result := a + b + c + d;
end;

function searchRes2(a1: ar): integer;
begin
  result := sum4(a1[1][1], a1[1][2], a1[2][1], a1[2][2]);
end;

begin
  writeln ('Vvedite 4 chisla');
  for i:=low(a1) to high(a1) do
    for j:=low(a1[i]) to high(a1[i]) do
      readln (a1[i][j]);
  writeln(searchRes2(a1));
  readln();
end.