#!/usr/local/perl5/bin/perl -w $n = ; $i = 1; $j = 1; $sum = 0; for($i = 1; $i <= $n; $i ++) { for($j = 1; $j <= $i; $j++) { $sum=$sum +$j; } } print "La somme est ".$sum."\n";