begin
  var a := ReadLnInteger('Введите число A:');
  var b := ReadLnInteger('Введите число B:');
  var c := ReadLnInteger('Введите число C:');
  WriteLn('Результат: ', Min(a, Min(b, c)), #9, a + b + c - Max(a, Max(b, c)) - Min(a, Min(b, c)), #9, Max(a, Max(b, c)));
end.