Matrix

program zad;
uses crt;
const n=5;
var a: array[1..n,1..n] of integer; s,i,k,j:integer;
begin
writeln('Задайте массив: ');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
clrscr;
for i:=1 to n do
for j:=1 to n do begin
write(a[i,j]:3);
if j=n then writeln(); end;
s:=0;
k:=n+1;
for i:=1 to n div 2 do
for j:=1 to i do
s:=s+a[i,j]+a[i,n-j+1];
for i:=n downto n div 2 + 1 do begin
k:=k-2;
for j:=1 to i-k do
s:=s+a[i,j]+a[i,n-j+1];
end;
if n mod 2 <> 0 then s:=s-a[n div 2 + 1, n div 2 + 1];
writeln('Сумма: ',s);
end.