Дано действительное число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а в 9 степени за 4 операции

program zz1;

var c, t, p, v, s, k, a:real; / / задаем переменные действительного типа

begin

write (' введите заданное действительное число a '); / / вводим число с клавиатуры

read (a);

k:=a * a; / / первая операция возведения в квадрат

s:=k * a; / / вторая операция возведения в квадрат

v:=s * s; / / третья операция возведения в квадрат

p:=s * v; / / четвертая операция возведения в квадрат

write (p:7:0); / / выводим ответ

end.