print "Bonjour \n";
$a=1;$A=7;
print $a."\n";
$a=$a/3; 
print "a/3 ".$a." A= $A\n";

$a=$a/2;
print "A/2".$A."\n";