use locale;
#!/usr/bin/perl
print "Donnez un nombre : ";
$a=<>;
chomp($a);
$i=0;
print "On va multiplier $a !!\n";
while ($i<=10) {
	print "$a x $i =",$a*$i,"\n";
	$i++;
}



