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

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

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