PROGRAM A21;
CONST 
    N = 8;
TYPE
    matrix = array[1..4]of integer;
var 
    mt:matrix;
    i,j:byte;
    ax:integer;

BEGIN
  mt[1]:=13; mt[2]:=7;
  write(mt[1], ' ', mt[2], ' ');

  ax := mt[1] + mt[2]; 
  for i:=3 to trunc(N/2)+1 do begin
    mt[3] := mt[1]-mt[2];
    mt[4] := mt[3]+mt[2];
    ax := ax + mt[3] + mt[4];
    write(mt[3],' ',mt[4],' ');
    mt[1] := mt[3];
    mt[2] := mt[4];
  end;
  writeln(' ');
  writeln('Сумма всех элементов: ', ax);
  writeln('Среднее арифметическое: ', ax / N);
END.