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

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