PROGRAM L3DT;

type
    TC = array[1..8,1..11] of real;
var
    headerArr : array [1..6] of string[117]; //Header
    textArr : array [1..8] of string[15]; //Text
    moveArr : array [4..6] of real;
    c : TC;
    i, j, count : integer;
    resultOne, resultTwo : real;
    INP, OUTP : text;

begin
    Assign(INP, 'data.dat');
    reset(INP);
    Assign(OUTP, 'outputData.dat');
    rewrite(OUTP);

    for i := 1 to 6 do begin
        readln(INP, headerArr[i]);
        writeln(OUTP, headerArr[i]);
    end;

    for i := 1 to 7 do begin
        resultOne := 0;
        resultTwo := 0;
        read(INP, textArr[i]);
        for j := 1 to 6 do begin
            read(INP, c[i,j]);
            if(j <= 3) then
                resultOne := resultOne + c[i,j]
            else
                resultTwo := resultTwo + c[i,j];
        end;
        readln(INP);
    c[i,7] := resultOne; //Всего за первый квартал
    c[i,8] := resultTwo; //Всего за второй квартал
    c[i,9] := c[i,7] + c[i,8];
    end;

    for i:=1 to 7 do begin // Приводим в порядок последовательность столбцов
        for count:=4 to 6 do
            moveArr[count]:=c[i,count];
        for j:=1 to 9 do begin
            if(j=4) then
                c[i,j]:=c[i,7];
        end;
         for count:=4 to 6 do
            c[i,count+1]:=moveArr[count];
    end;


    for i := 1 to 7 do begin
        write(OUTP, textArr[i] : 17, headerArr[5][18]);
        for j := 1 to 9 do begin
            write(OUTP, c[i,j] : 10:2, headerArr[5][18]); //Заполнение остальных ячеек
        end;
        writeln(OUTP);
    end;

    read(INP, textArr[8]); //Чтение заголовка строки
    write(OUTP, textArr[8] : 17, headerArr[5][18]);
    for j := 1 to 9 do begin
        for i := 1 to 7 do
            c[8,j] := c[8,j] + c[i,j]; //Заполнение Всего по остальным столбцам
        write(OUTP, c[8,j] : 10:2, headerArr[5][18]); //Построение строки Всего по столбцам
    end;
    writeln(OUTP);
    write(OUTP, headerArr[2]);
    close(INP);
    close(OUTP);
end.