Задача 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;

type
  myArr1 = array[1..2, 1..2] of integer;


function get4num(): myArr1;
var i, i2: integer;
    a:  myArr1;
begin
   for i:=low(a) to high(a) do
    for i2:=low(a[i2]) to high(a[i2]) do
      readln(a[i][i2]);
   result := a;
end;

procedure sum(a: myArr1);
var c:integer;
begin
    c:= a[1, 1]+a[1, 2]+ a[2, 1]+ a[2, 2];
    writeln('sum =',' ',c);
end;

begin
  writeln('enter 4 numbers to add up');
  sum(get4num());
  readln();
end.     

Вывод консоли:

enter 4 numbers to add up
5
5
5
5
sum = 20