составьте программу возведения в квадрат
И в куб ,, пожалуйста.

var x : real;begin write('Введите число х: '); readln(x); writeln(x, 'в квадрате равно', power(x, 2)); writeln(x, 'в кубе равно', power(x, 3))end.

PascalABC.NET 3.3, сборка 1547 от 07.10.2017Внимание! Если программа не работает, обновите версию!begin  var x:=ReadReal('Введите число:');  Writeln('Его квадрат ',x*x,', куб ',x*x*x)end.ПримерВведите число: -35.432Его квадрат 1255.426624, куб -44482.276141568