Подправьте пожалуйста код. Паскаль.

[Sting95]

Задание: Провести табуляцию функции на промежутке.

y=sqrt(x-x^3), x є [-2;2]

Проблема в том, что не высчитывает y.

Вот код:

uses crt;
const a=-2;
      b=2;
      
Procedure zagolovok;
 begin
  writeln('┌───────────┬──────────┐');
  writeln('│     x     │     y    │');
  writeln('└───────────┘──────────┘');
 end;
 
Function F(x:real):real;
  begin
  F:=sqrt(x-(exp(ln(x)*3)));
  end;

var x,y,c:real;
    n:byte;
begin   
    write('Введiть кiлькiсть аргументiв n=');
    readln(n);
    c:=(b-a)/n; //высчитывание шага//
    writeln('Табуляцiя функцiї');
    x:=a+c;
    zagolovok;
    while x<=b do begin
    writeln('│───────────│──────────│');
    writeln(' x=',x:5:2,'     y=',F(x):3:2);
    writeln('│           │          │');
    x:=x+c;
    readkey;
   end;
    writeln('└───────────┘──────────┘');
    readln;
    readkey;
    clrscr;
end.

[Vanta11a]

Результат для PascalABC.Net:

Введiть кiлькiсть аргументiв n=10
Табуляцiя функцiї
┌───────────┬──────────┐
│ x │ y │
└───────────┘──────────┘
|x=-1.60 |y= NaN|
|x=-1.20 |y= NaN|
|x=-0.80 |y= NaN|
|x=-0.40 |y= NaN|
|x= 0.00 |y= NaN|
|x= 0.40 |y= 0.58|
|x= 0.80 |y= 0.54|
|x= 1.20 |y= NaN|
|x= 1.60 |y= NaN|
|x= 2.00 |y= NaN|
└───────────┘──────────┘

Чуть чуть поправленный исходник для него же:

const a=-2;
      b=2;
      
Procedure zagolovok;
 begin
  writeln('┌───────────┬──────────┐');
  writeln('│     x     │     y    │');
  writeln('└───────────┘──────────┘');
 end;
 
Function F(x:real):real;
  begin
  F:=sqrt(x-(exp(ln(x)*3)));
  end;

var x,y,c:real;
    n:byte;
begin   
    write('Введiть кiлькiсть аргументiв n=');
    readln(n);
    c:=(b-a)/n; //высчитывание шага//
    writeln('Табуляцiя функцiї');
    x:=a+c;
    zagolovok;
    while x<=b do begin
//    writeln('│───────────│──────────│');
    writeln('|x=',x:5:2,'    |y=',F(x):8:2,'|');
//    writeln('│           │          │');
    x:=x+c;
//    readln;
   end;
    writeln('└───────────┘──────────┘');
    readln;
end.

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