一元二次方程
　　题目描述：
　　　　方程ax＾2+bx+c=0，要求给出它的实数解．
　　输 入：
　　　　三个实数：a，b，c，是方程的三个系数(a≠0)．
　　输 出：
　　　　如果无实数解，则输出"No solution"；
　　　　如果有两个相等的实数解，则输出其中一个，四舍五入到小数点后面3位；
　　　　如果有两个不等的实数解，则解与解之间用逗号隔开，同样要四舍五入到小数点后3位。
　　输入样例：
　　　　　　l 2 1
　　输出样例：
　　　　　　-1.000
　　程 序：

　　　　program Program41；
　　　　var
　　　　　a，b，c，m：real；
　　　　begin
　　　　　read (a，b，c)；
　　　　　m：=b*b -4*a*c；
　　　　　if ( m>0 )then
　　　　　　begin
　　　　　　　write ( (-l*b+sqrt(m))/(2*a) ：0：3)；
　　　　　　　write( ` , ` );
　　　　　　　write ((-1*b-sqrt(m))／(2*a)：0： 3 )；
　　　　　　end
　　　　　　else if ( ABS(M)<0.0001 )then
　　　　　　　write( -1*b/(2*a):0:3 )
　　　　　　　else begin
　　　　　　　　　　write (`No solution`)；
　　　　　　　　　 end
　　　　end．