Дано число A. Вычислить A15, используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить A2, A3, A5, A10, A15. Вывести все найденные степени числа A — Pascal(Паскаль)

program stepen;
var A, B, C: real;
begin
    write('Введите значение A: ');
    readln(A); {2}
    B := A * A; {4}
    writeln(A, ' во второй степени - ', B);
    C := A * B; {8}
    writeln(A, ' в третьей степени - ', C);
    B := C * B; {32}
    writeln(A, ' в пятой степени - ', B);
    C := B * B; {1024}
    writeln(A, ' в десятой степени - ', C);
    B := B * C; {32768}
    writeln(A, ' в пятнадцатой степени - ', B);
end.