#!/usr/bin/perl
#File: quad1.pl
#Name: Mr. Brennan
#Purpose: Prompt the user for a,b,c for solving
#         quadratic equations.  
#         Version 1: No error checking 

print("Enter an integer for a: ");
chomp($a = <>); 

print("Enter an integer for b: ");
chomp($b = <>); 

print("Enter an integer form c: ");
chop($c = <>); 
$d = ($b * $b) - (4 * $a * $c);
$e = (-$b + sqrt($d))/(2 * $a);
$f = (-$b - sqrt($d))/(2 * $a);
print "The roots of $a"."x^2 + $b"."x + $c are $e and $f \n";