($a,$b,$c)=glob<>;
$d=$b**2-4*$a*$c;
print $d<0?imaginary:do{$d=sqrt$d;join$",sort{$a<=>$b}(-$b-$d)/$a/2,$d?(-$b+$d)/$a/2:()}