Напишите программу возведения числа в седьмую степень за четыре операции!Pascal

Question

Напишите программу возведения числа в седьмую степень за четыре операции!Pascal

Answer 1

Program kek;
var x:real;
Begin
readln(x);
x:= sqr(x)*sqr(x)*sqr(x)*x
writeln ('x в седьмой степени равно  ', x);
end;