Решение задачи Begin 28

#include <iostream>
using namespace std;
int main(){
	double A,x,y;
	cout << "Vvedite znacheniye peremennoy A: ";
	cin >> A;
	x = A*A;
	cout << "A v stepeni 2 ravno " << x << "." << endl;
	y = x*A;
	cout << "A v stepeni 3 ravno " << y << "." << endl;
	x = x*y;
	cout << "A v stepeni 5 ravno " << x << "." << endl;
	y = x;
	x = y*y;
	cout << "A v stepeni 10 ravno " << x << "." << endl;
	x = x*y;
	cout << "A v stepeni 15 ravno " << x << "." << endl;
	return 0;
}

import random

A = random.randrange(0, 10)
A = 2
print("A = ",A)
x = A*A
print("A^2 = ",x)
A = x*A
print("A^3 = ",A)
A = x*A
print("A^5 = ",A)
x = A*A
print("A^10 = ",x)
A = x*A
print("A^15 = ",A)
									

program Begin28;
var
  A,AN,AN1: Real;
begin
  Write('Введите значение A: ');
  Readln(A);

  AN:=A*A;
  Writeln('Значение A в степени 2 равно: ',AN);

  AN1:=AN*A;
  Writeln('Значение A в степени 3 равно: ',AN1);

  AN1:=AN1*AN;
  Writeln('Значение A в степени 5 равно: ',AN1);

  AN:=AN1*AN1;
  Writeln('Значение A в степени 10 равно: ',AN);

  AN1:=AN*AN1;
  Writeln('Значение A в степени 15 равно: ',AN1);
end.