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

#include <stdio.h>

void  swap(float *x, float *y){
   *x=*x+*y;
    *y=*x-*y;
    *x=*x-*y;
}
 
void shiftright3(float *a, float *b, float *c){
   swap(a,b);
   swap(c,a);
}
 
int main(void)
{
    int i;
    for (i=1;i<=2;++i){
        float a,b,c;
        printf("A:");
        scanf("%f", &a);
        printf("B:");
        scanf("%f", &b);
        printf("C:");
        scanf("%f", &c);
 
        shiftright3(&a,&b,&c);
        printf("A:%f; B:%f; C:%f\n",a,b,c);
    }
    return 0;
}

import random

def ShiftRight3(A,B,C):
    A,B = B,A
    A,C = C,A
    L = []
    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 = ShiftRight3(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 = ShiftRight3(A,B,C)
print("Final: {0}, {1}, {2}".format(A,B,C))
									

program Proc14;
 
procedure ShiftRight3(var A,B,C:Real);
begin
  A:=A+B;
  B:=A-B;
  A:=A-B;
 
  C:=C+A;
  A:=C-A;
  C:=C-A;
end;
 
 
var
  A1,B1,C1:Real;
  A2,B2,C2:Real;
 
begin
  Write('A1 :');
  Readln(A1);
  Write('B1 :');
  Readln(B1);
  Write('C1 :');
  Readln(C1);
  ShiftRight3(A1,B1,C1);
  Writeln(A1,' ',B1,' ',C1);
 
  Write('A2 :');
  Readln(A2);
  Write('B2 :');
  Readln(B2);
  Write('C2 :');
  Readln(C2);
  ShiftRight3(A2,B2,C2);
  Writeln(A2,' ',B2,' ',C2);
end.