Даны три целых числа a, b ,c если все числа различные.то заменить меньшее на сумму двух других.вывести на экран новые значения чиселa a,b,c.(паскаль)

Program das;var a, b, c, d, e: real;beginreadln(a, b, c);if (a = b) or (b = c) or (a = c)  then   else     if (a < b) and (a < c)      then writeln(b+c, b, c);    if (b < a) and (b < c)      then writeln(a, a+c, c);    if (c < a) and (c < b)      then writeln(a, b, a+b)end.