Записать значения переменных A, B, C по возрастанию (Pascal -> C++)

{ Процедура записывает значения переменных A, B, C по возрастанию }
procedure SortInc3(var A, B, C: real);
 
 { Процедура переписывает две переменные A и B по возрастанию }
 procedure Minmax(var A, B: real);
 var
   c: real;
 { Тело внутренней процедуры Minmax(А, В) }
 begin
  { Если A больше B, то значения переменных меняем 
  местами, в противном случае ничего не изменится: }
   if A > B then begin 
     c := A; { <== запоминаем A }
     A := B; { <== A меняем на B }
     B := c  { <== B присваиваем с, равной A }
   end
 end;
 
{ Тело основной процедуры SortInc3(A, B) }
begin
  Minmax(A, B);
  Minmax(A, C);
  Minmax(B, C)
end;
 
var
  A1, B1, C1, A2, B2, C2: real;
 
begin
  writeln('Введите вещественные числа A1, B1, C1: ');
  readln(A1, B1, C1); { <-- вводим числа A1, B1, C1 }
  SortInc3(A1, B1, C1); { <-- Сортируем A1, B1, C1 по возрастанию }
  writeln('Числа по возрастанию: ', A1, ' ', B1, ' ', C1);
  writeln('Введите вещественные числа A2, B2, C2: ');
  readln(A2, B2, C2); { <-- вводим числа A2, B2, C2 }
  SortInc3(A2, B2, C2); { <-- Сортируем A2, B2, C2 по возрастанию }
  writeln('Числа по возрастанию: ', A2, ' ', B2, ' ', C2);
  readln
end.