#!/usr/bin/perl

$ARGV=@ARGV;
if ($ARGV < 3){ print "wtf?"; exit;}

$a=$ARGV[0];
$b=$ARGV[1];
$c=$ARGV[2];
$D = $b*$b - 4*$a*$c;
print "D=".$D."\n";
if ($D<0){
    print "D<0... Exit...";
    exit;
}
if ($D==0){
    $x= (-$b + sqrt($b*$b - 4*$a*$c))/(2*$a);
    print $x;
    exit;
}
if ($D>0){
    $x1 = (-$b + sqrt($b*$b - 4*$a*$c))/(2*$a);
    $x2= (-$b - sqrt($b*$b - 4*$a*$c))/(2*$a);
    print "X+ = ".$x1."\n";
    print "X- = ".$x2."\n";
    exit;
}