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

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