Дано число A. Вычислить A15, используя две вс переменные и пять операций умножения. Для этого последовательно

var
A, k, m: real;

begin
write(' A = ');
readln(A);
writeln('Результат:');
k := A * A; { <-- вычисляем квадрат }
writeln(' ', A, ' во второй степени: ', k);
m := A * k; { <-- вычисляем куб }
writeln(' ', A, ' в третьей степени: ', m);
m := k * m; { <-- вычисляем пятую степень }
writeln(' ', A, ' в пятой степени: ', m);
k := m * m; { <-- вычисляем десятую степень }
writeln(' ', A, ' в десятой степени: ', k);
k := k * m; { <-- вычисляем пятнадцатую степень }
writeln(' ', A, ' в пятнадцатой степени: ', k);
readln
end.