Вводится вещественное число А не пользуясь никакими арифметическими операциями…

Program g; var A,B,C: real; beginreadln (A); C: =A; // А в степени 1 B: =A*A; // А в степени 2 A: =B*B; // А в степени 4 A: =A*B*C; // А в степени 1 на 2 на 4=А в степени 7writeln (A); end.