20+10 ! создайте функцию возведения вещественного числа в натуральную степень. с ее определите, является ли введенное число корнем уравнения x³-2x²-3x+6=0.

Function St(O:real; P:integer):real;
Begin
result:=1;
For P:= 1 to P do
    result:=result*O
End;
Var
  X:real;
Begin
Write('X = ');ReadLn(X);
if St(X,3)-2*St(X,2)-3*X+6 = 0 then Write(X,' - корень уравнения')
else WriteLn(X,' не является кормен уравнения')
End.