Застопорился на простом! Объясните кто может!

[PedroSUN]

var
  x, y, a, c, d: real;

begin
  write('x= ');readln(x);
  write('y= ');readln(y);
  c := power((x - 1), 0.3);
  d := y + c;
  if d < 0 then writeln('Комплексное число') else
  begin
    a := power(d, 0.25);
    writeln('a= ', a);
  end;
end.

В окне вывода, если выражение под большим корнем меньше нуля, не пишет 'Комплексное число', пишет NaN. Код в Pascal abc.

[Аватар]

0.3 это не корень кубический. И в делфи, например, power от отрицательного с не целой степенью заведомо ошибка. Чего там в паскале и в каком не знаю

[PedroSUN]

Ну и как мне корень кубический из (х-1) взять, чтоб паскаль не ругался?