# Patrick Robinson
# Perl Program
# 4.15-1
# Input Data

print "Input value of A ";
$a = <STDIN>;
print "Input value of B ";
$b = <STDIN>;
print "Input value of C ";
$c = <STDIN>;

# Calulate Data

$result = 10 * $a * $b - (($c-1)/17.44);

# Output Results

print "$result \n";

#hold to view

print "Press Enter to End.";
$a = <STDIN>;