Помогите с Паскалем

Это лишь часть программы. Программа должна найти X кубического уравнения при том, что b=0. Я уже вписал теорему Виета Кардано. В выводе пишет Не число. Что делать?

Var a: Integer;
Var b, c, d, e, g, x1, x2, x3: real;

begin
writeln('Введите первый коэффицент');
readln(a);
writeln('Введите второй коэффицент');
readln(b);
writeln('Введите третий коэффицент');
readln(c);
writeln('Введите четвёртый коэффицент');
readln(d);

If b=0 then
begin
e:=exp(ln(-1*d/2+sqrt((d/2)*(d/2)+(c/3)*(c/3)*(c/3)))/3)+exp(ln(-1*d/2-sqrt((d/2)*(d/2)+(c/3)*(c/3)*(c/3)))/3);

If e>0 then
begin
writeln('x1=', e, 'x2=', e, 'x3=', e);
halt;
end;

If e=0 then
begin
writeln('x1=0', 'x2=0', 'x3=0');
halt;
end;

If e<0 then
begin
writeln('Нет корней');
halt;
end;

writeln(e);
end;
end.