Решение квадратных уравнений, В чем ошибка? Опции

[Вацура]

Доброго времени суток.
Как написать прогу, которая решает квадратные уравнения?
Я делал так:

uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
write('Введите а');
readln(a);
write('Введите b');
readln(b);
write('Введите c');
readln(c );
d:=sqr(b)-4*a*c;
x1:=(-b-sqrt(d))/2*a;
x1:=(-b+sqrt(d))/2*a;
if d<0 then write('Корней нет') else write(x1,x2);
readln;
end.

И когда d=0 или d>0, то всё нормально,
но если d<0 тогда Паскаль выдёт
207 ошибку(Invalid floating point operation).
Это связано с тем, что из отрицательного числа корень не извлекаеться?
Что нужно сделать, чтобы прга заработала?

Сообщение отредактировано: lapp - 6.12.2006 4:08

[Bokul]

uses crt;
var a,b,c,d,x1,x2:real;
begin
repeat
   clrscr;
   writeln('Введите а');
   readln(a);
   writeln('Введите b');
   readln(b);
   writeln('Введите  c');
   readln(c );
   d:=sqr(b)-4*a*c;
   if d>=0 then{<---сдесь}
      begin
           x1:=(-b-sqrt(d))/2*a;
           x1:=(-b+sqrt(d))/2*a;
      end;
   if d<0 then
      write('Корней нет')
   else
      write(x1,x2);
   writeln('Press Esc to exit');
until readkey=#27;
end.