Решение задачи Proc 12

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
 
using namespace std;
 
void SortInc3 (double &A, double &B, double &C);
 
int main ()
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  double A1, B1, C1;
  for (int i = 1; i<3; ++i) {
    cout << "Введите число A1: ";     cin >> A1;
    cout << "Введите число B1: ";     cin >> B1;
    cout << "Введите число C1: ";     cin >> C1;
    SortInc3 (A1, B1, C1);
    cout << A1 << " " << B1 << " " << C1 << endl;
  }
  system ("pause");
  return 0;	
}
 
void SortInc3 (double &A, double &B, double &C) {
  
  double	a_new, b_new, c_new;
  c_new = max(A, max(B,C));
  a_new = min(A, min(B,C));
  if ((A <= B) && (B <= C) || (C <= B) && (B <= A)) b_new = B;
  if ((B <= C) && (C <= A) || (A <= C) && (C <= B)) b_new = C;
  if ((C <= A) && (A <= B) || (B <= A) && (A <= C)) b_new = A;
  A = a_new;
  B = b_new;
  C = c_new; 
  return;
}

import random

def SortInc3(A,B,C):
    L = []
    if A > B:
        A,B = B,A
    if B > C:
        B,C = C,B
    if A > B:
        A,B = B,A
    L.append(A)
    L.append(B)
    L.append(C)
    return L

A = random.randrange(-10,10)
B = random.randrange(-10,10)
C = random.randrange(-10,10)
print("Initial: {0}, {1}, {2}".format(A,B,C))
A,B,C = SortInc3(A,B,C)
print("Final: {0}, {1}, {2}".format(A,B,C))

A = random.randrange(-10,10)
B = random.randrange(-10,10)
C = random.randrange(-10,10)
print()
print("Initial: {0}, {1}, {2}".format(A,B,C))
A,B,C = SortInc3(A,B,C)
print("Final: {0}, {1}, {2}".format(A,B,C))
									

program Proc12;
procedure SortInc3(var A,B,C:Real);
var temp:Real;
begin
  if A>B then
   begin
     temp:=A;
     A:=B;
     B:=temp;
   end;
  if A>C then
   begin
     temp:=A;
     A:=C;
     C:=temp;
   end;
  if B>C then
   begin
     temp:=B;
     B:=C;
     C:=temp;
   end;
end;
 
var
  A1, B1, C1, A2, B2, C2:Real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Writeln('Введите первый набор переменных: ');
  Write('Введите  A1: ');
  Readln(A1);
  Write('Введите  B1: ');
  Readln(B1);
  Write('Введите  C1: ');
  Readln(C1);
  SortInc3(a1,b1,c1);
  Write(a1);
  write(';');
  Write(b1);
  write(';');
  Writeln(c1);
 
  Writeln('Введите второй набор переменных: ');
  Write('Введите  A2: ');
  Readln(A2);
  Write('Введите  B2: ');
  Readln(B2);
  Write('Введите  C2: ');
  Readln(C2);
  SortInc3(a2,b2,c2);
  Write(a2);
  write(';');
  Write(b2);
  write(';');
  Writeln(c2);
end.