BONES PASCAL

var a:array[1..100] of longint;
    i,j,k,s1,s2,s3,maxx,p:longint;
begin
    assign(input, 'bones.inp');  reset(input);
    assign(output, 'bones.out');  rewrite(output);
    read(s1,s2,s3);
    for i:=1 to s1 do
        for j:=1 to s2 do
            for k:=1 to s3 do
                inc(a[i+j+k]);
    maxx:=0;
    p:=3;
    for i:=1 to s1+s2+s3 do
        if a[i]>maxx then
        begin
            p:=i;
            maxx:=a[i];
        end;
    write(p);
end.