#!/usr/bin/perl
print "Entrer une valeur : ";
$a=<>;
chomp($a);
$compteur=0;
print "Table de multiplication de $a :\n";
while ($compteur<=10) {
	print "$a x $compteur = ",$a*$compteur,"\n";
	$compteur++;
}