Какой результат исполнения алгоритмасоответствует вводимым значениям…

Поскольку алгоритма нет, имею право ввести свойprocedure swap (var a, b: real); var t: real; begin t: =a; a: =b; b: =t; end; var a, b, c: real; begin readln (a, b, c); if (a > b) then swap (a, b); if (b > c) then swap (b, c); if (a > b) then swap (a, b); writeln (a, ', b, ', c); end. В ответе будета=10b=18 с=26=)