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

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