program Main;
var
    n, i, j, sum, temp, max: integer;
    a: array of integer;
begin
    readln(n);
    SetLength(a, n);
    
    // Nhập mảng
    for i := 0 to n - 1 do
        read(a[i]);

    // Tính tổng
    sum := 0;
    for i := 0 to n - 1 do
        sum := sum + a[i];
    writeln('Tong la: ', sum);

    // Sắp xếp
    for i := 0 to n - 2 do
        for j := n - 1 downto i + 1 do
            if a[j] < a[j - 1] then
            begin
                temp := a[j];
                a[j] := a[j - 1];
                a[j - 1] := temp;
            end;

    // In dãy đã sắp xếp
    write('Day sau khi sap xep: ');
    for i := 0 to n - 1 do
        write(a[i], ' ');
    writeln;

    // Tìm giá trị tuyệt đối lớn nhất
    max := 0;
    for i := 0 to n - 1 do
        if abs(a[i]) > max then
            max := abs(a[i]);
    writeln('So gia tri tuyet doi max la: ', max);
end.