Помогите найти ошибку в коде программы!

В этом куске ошибка:
if D>0 then begin
e:=sqrt(d);
x:=(e-b) div 2*a;
Ошибку пишет в строчке e:=sqrt(d);
Она называется incompatible types: got "extended" expected "smallint"
Переменная e : integer

d:integer

спс, e:real сработало!