方程 （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 ( 1 ) then begin write( 2 :0:3); write(','); write((-1*b-sqrt(m))／(2*a):0: 3 ); end else if ( 4 )then write( 5 ) else begin write ('No solution'); end; end.
