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

#include <stdio.h>
void  swap(float *x, float *y){
   *x=*x+*y;
    *y=*x-*y;
    *x=*x-*y;
}
 
int main(void)
{
    float a,b,c,d;
    printf("A:");
    scanf("%f", &a);
    printf("B:");
    scanf("%f", &b);
    printf("C:");
    scanf("%f", &c);
    printf("D:");
    scanf("%f", &d);
 
    swap(&a,&b);
    swap(&c,&d);
    swap(&b,&c);
    printf("A:%f; B:%f; C:%f; D:%f;\n",a,b,c,d);
 
    return 0;
}

import random

def Swap(L):
    L[0],L[1] = L[1],L[0]
    return L

A = random.randrange(-10,10)
B = random.randrange(-10,10)
C = random.randrange(-10,10)
D = random.randrange(-10,10)
print("A = ",A)
print("B = ",B)
print("C = ",C)
print("D = ",D)
print()

A1 = A
B1 = B
C1 = C
D1 = D

A,B = B,A
C,D = D,C
B,C = C,B

print("A = ",A)
print("B = ",B)
print("C = ",C)
print("D = ",D)
print()

L = [A1,B1]
A1,B1 = Swap(L)
L = [C1,D1]
C1,D1 = Swap(L)
L = [B1,C1]
B1,C1 = Swap(L)
print("A = ",A1)
print("B = ",B1)
print("C = ",C1)
print("D = ",D1)
									

program Proc10;
 
procedure Swap(var X,Y:Real);
begin
  X:=X+Y;
  Y:=X-Y;
  X:=X-Y;
end;
 
var
  A,B,C,D:Real;
 
begin
  Write('A :');
  Readln(A);
  Write('B :');
  Readln(B);
  Write('C :');
  Readln(C);
  Write('D :');
  Readln(D);
  Swap(A,B);
  Swap(C,D);
  Swap(B,C);
  Writeln(A,' ',B,' ',C,' ',D);
end.