Найти сумму элементов квадратной матрицы a(4,4),расположенных выше побочной диагонали.алгоритм на паскаль. 20 )

program pr;

var

a:array[1..4,1..4] of integer;

i,k,sum,j:integer;

begin

writeln('Ввод значений матрицы(горизонтально по рядам)');

for i:=1 to 4 do

begin

for k:=1 to 4 do

 begin

 readln(a[i, k]);

 end;

end;

writeln('получившаяся матрица:');

for i:=1 to 4 do

begin

for k:=1 to 4 do

 begin

 write(a[i, k]);

 end;

 writeln();

end;

sum:=0;

j:=4;

for i:=1 to 4 do

begin

for k:=1 to 4 do

 begin

 if k<j then sum:=sum+a[i,k];

 end;

 j:=j-1;

end;

writeln('сумма: ',sum);

end.

функция..

Объяснение:

function arrsum(a: array[1..4,1..4] of real):real;

var

x,y:integer;

sum:real;

begin

sum:=0;

for x:=1 to 3 do

for y:=1 to (4-x) do

sum:=sum+a[x,y];

result:=sum;

end;