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

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