Решите в ! использую ! дано действительное число а. не пользуясь никакими арифметическими операциями, кроме умножения , получить: а4 за две операции (4- в степени)

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

procedure a4(a:real; var r:real);
begin
  r:=a*a;
  r:=r*r
end;

begin
  var a:=ReadReal('a=');
  var res:real;
  a4(a,res);
  Writeln(a,'^4=',res)
end.

Пример
a= 3.14
3.14^4=97.21171216