Помогите есть вопросы!!!

Условие: Даны вещественные числа a,b,c. Найти корни квадратного уравнения ax2+bx+c=0. Возможные ответы: "корней нет"; "корней бесконечно много"; "вещественные корни:х1=...,х2=..." "комплексные вещественные корни: х1=... , ч2=..."; "комплексные корни: ч1=...+i..., x2...+i..."Написал прогу препод дал числа (0 0 0) ввёл и чет не то показывает
вот программа
program Urav;
var a,b,c:integer;
x,x1,x2,D:real;
begin
writeln('введите a,b,c');
readln(a,b,c);
D:=sqr(b)-4*a*c;
writeln(D);
if D>0 then
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln('вещественные корни: x1=',x1,'x2=',x2);
end
else
if D<0 then
writeln('корней нет')
else
if D=0 then
x:=-b/(2*a);
writeln('один корень x=',x);
readln;
end.