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

program das; var a, b, c, d, e: real; begin readln(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.

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.