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

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