Question

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

Answer 1

var
    a, b, c, t: integer;

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