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

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.