Code:

Type
 niz=array[1..100] of shortint;
 mat=array[1..100,1..100] of shortint;
Var
 a:niz;
 b:mat;
 n,i,j,p,t:integer;
Procedure matrica(a:niz); {Formira matricu}
Begin
t:=n+2;
 for i:=1 to n do
  Begin
   t:=t-1;
   j:=0;
    repeat
     for p:=t to n do
      Begin
       inc(j);
       b[i,j]:=a[p];
      End;
     for p:=1 to n-i+1 do
      Begin
       inc(j);
       b[i,j]:=a[p];
      End;
    until t>1;
  End;
End;
Function saberi(b:mat):integer; {Sabira}
Var
 suma:integer;
Begin
suma:=0;
 for i:=2 to n do
  for p:=1 to i-1 do
   suma:=suma+b[i,p];
saberi:=suma;
End;
Begin
write('Unesite br clanova niza: ');
readln(n);
 for i:=1 to n do
  read(a[i]);
matrica(a);
for i:=1 to n do
 Begin
  writeln;
   for j:=1 to n do
    write(b[i,j],'  ');
 End;
write('Suma: ',saberi(b));
End.