Code

uses crt;
var i,j,tg,maxS,minS: integer;
var a: array[1..5] of integer;
begin
for i := 1 to 5 do read(a[i]);
for i := 1 to 5 do
    for j := 1 to 5 do
        if a[i] < a[j] then
        begin
            tg := a[i];
            a[i] := a[j];
            a[j] := tg;
        end;
minS := a[1] + a[2] + a[3] + a[4];
maxS := a[2] + a[3] + a[4] + a[5];
writeln(minS,' ',maxS);
end.

uses crt;
var a: array[1..5] of integer;
    i,j,tg: integer;
begin
clrscr;
    readln(a[1],a[2],a[3],a[4],a[5]);
    for i:=1 to 5 do for j:=i+1 to 5 do if a[i]>a[j] then begin
        tg:=a[i];
        a[i]:=a[j];
        a[j]:=tg;
    end;
    write(a[1]+a[2]+a[3]+a[4],' ',a[2]+a[3]+a[4]+a[5]);
readln
end.