谁能帮我一下,编写这个程序,求解一元二次方程ax平方+bx+c=0的根(假设b平方-4ac=0)

var a,b,c,m:real;
begin
readln(a,b,c);
m:=b*b-4*a*c;
if m>0 then begin
write((-1*b+sqrt(m))/(2*a):0:3);
write(',');
write((-1*b-sqrt(m))/(2*a):0:3);
end
else write((-1*b)/(2*a):0:3);
end.