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

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.