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

#include <bits/stdc++.h>
using namespace std;

void PowerA234(double A, double &B, double &C, double &D) {
	B = A * A;
	C = B * A;
	D = B * B;
	return;
}

int main() {
	srand((int)time(0));
	double a, b, c, d;
	for(int i = 0; i < 5; i++) {
		a = rand() % 20 - 10;
		PowerA234(a,b,c,d);
		cout << "A = " << a << " : ";
		cout << "A^2 = " << b << " : ";
		cout << "A^3 = " << c << " : ";
		cout << "A^4 = " << d << endl;
	}
	
	return 0;
}

import random

def PowerA234(A,B):
   B[0] = A * A
   B[1] = B[0] * A
   B[2] = B[1] * A
   return

A = random.randrange(-10,10)
B = [None] * 3
PowerA234(A,B)
print('A = ', A)
print('B = ', B)


A = random.uniform(-10,10)
PowerA234(A,B)
print('A = ', A)
print('B = ', B)
									

program Proc2;
procedure  PowerA234(A: Real; var B,C,D :Real);
begin
  B:=A*A;
  C:=B*A;
  D:=C*A;
end;
 
var
  X,X2,X3,X4: Real;
  I:Integer;
begin
 for i:=1 to 5 do
  begin
   Write('Введите число: ');
   Readln(X);
   PowerA234(X,X2,X3,X4);
   Writeln('Вторая степень числа ',X,' равна: ',X2);
   Writeln('Третья степень числа ',X,' равна: ',X3);
   Writeln('Четвёртая степень числа ',X,' равна: ',X4);
  end;
end.