Дано действительное число. Пользуясь только умножением, получить A^6 за три операции и A^7 за четыре операции - Free Pascal

Формулировка задачи:

1. Дано действительное число A. Пользуясь только умножением, получить A⁶ за три операции и A⁷ за четыре операции и вычислить e^A⁶ и e^A⁷ .

Решение задачи: «Дано действительное число. Пользуясь только умножением, получить A^6 за три операции и A^7 за четыре операции»

Листинг программы

uses crt;
var a,b,a6,a7:real;
begin
clrscr;
write('a=');
readln(a);
b:=a*a;
a6:=b*b*b;
a7:=a6*a;
writeln('a^6=',a6:0:2);
writeln('a^7=',a7:0:2);
writeln('e^(a^6)=',exp(a6):0:2);
writeln('e^(a^7)=',exp(a7):0:2);
readln
end.

Объяснение кода листинга программы

Объявление переменных a, b, a6, a7 типа real.
Очистка экрана с помощью функции clrscr.
Ввод значения переменной a с помощью функции readln.
Вычисление значения переменной b как произведение значения переменной a на само себя.
Вычисление значения переменной a6 как произведение значения переменной b на само себя.
Вычисление значения переменной a7 как произведение значения переменной a6 на значение переменной a.
Вывод значения переменной a6 с помощью функции writeln, с указанием количества знаков после запятой равным 2.
Вывод значения переменной a7 с помощью функции writeln, с указанием количества знаков после запятой равным 2.
Вычисление значения переменной a6_exp как экспонента от значения переменной a6.
Вычисление значения переменной a7_exp как экспонента от значения переменной a7.
Вывод значения переменной a6_exp с помощью функции writeln, с указанием количества знаков после запятой равным 2.
Вывод значения переменной a7_exp с помощью функции writeln, с указанием количества знаков после запятой равным 2.
Ввод значения с помощью функции readln (для завершения работы программы).
Конец программы.