Найти сумму двух наибольших из трех заданных чисел.
В Паскале.

Var
    a, b, c, t: integer;

begin
    readln(a, b, c);
    if c gt; b then begin
        t := b;
        b := c;
        c := t;
    end;
    
    if c gt; a then begin
        t := a;
        a := c;
        c := t;
    end;
    writeln(a + b);
end.