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

#include <stdio.h>

void  swap(float *x, float *y){
   *x=*x+*y;
   *y=*x-*y;
   *x=*x-*y;
}
 
void shiftleft3(float *a, float *b, float *c){
   swap(a,b);
   swap(c,b);
}
 
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);
 
        shiftleft3(&a,&b,&c);
        printf("A:%f; B:%f; C:%f\n",a,b,c);
    }
    return 0;
}

import random

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

program Proc15;
 
procedure ShiftRight3(var A,B,C:Real);
begin
  A:=A+B;
  B:=A-B;
  A:=A-B;

  C:=C+B;
  B:=C-B;
  C:=C-B;
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.