Семьдесят два балла за простое задание! Сделайте по-нормальному, пожалуйста. Написать программу для вычисления корней квадратного уравнения: ax^2+bc+c=0.

Var a,b,c,d,x1,x2:real;
begin
writeln(Введите коэффициент a);
readln(a);
writeln(Введите коэффициент b);
readln(b);
writeln(Введите коэффициент c);
readln(c);
d:=sqr(b)-4*a*c;
if d>0 then 
begin
x1:= ((-1)*b+sqrt(d))/(2*a);
x2:=((-1)*b-sqrt(d))/(2*a);
writeln(x1=,x1, x2=,x2);
end
else if d=0 then
begin
x1:= ((-1)*b)/(2*a);
writeln(x=,x1);
end
else writeln(Корней нет);
end.