Срочно, решите в паскале!!! ИСПОЛЬЗУЮ ПРОЦЕДУРУ!!!
Дано действительное число а. Не пользуясь никакими арифметическими операциями, кроме умножения , получить:
а4 за две операции (4- в степени)

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017// Внимание! Если программа не работает, обновите версию!procedure a4(a:real; var r:real);begin  r:=a*a;  r:=r*rend;begin  var a:=ReadReal('a=');  var res:real;  a4(a,res);  Writeln(a,'^4=',res)end.Примерa= 3.143.14^4=97.21171216