Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов

aх^2+вх+с=0
var a, b, c, d, x1, x2 : real; 

begin 
write('a = '); readln(a); 
write('b = '); readln(b); 
write('c = '); readln(c); 
d := b*b + 4*a*c; 
if d=0 then 
begin 
x1 := b / (2 * a) 
writeln (x1:3:3); 
end 
else 
if d>0 then 
begin 
x1 := (- b + sqrt(d) / (2 * a); 
x2 := (- b - sqrt(d) / (2 * a); 
writeln (x1:3:3, ' ', x2:3:3); 
end 
else 
writeln ('Нет решения'); 
end.