isaac_vs

#!/usr/bin/env perl
############################################
#**********script Coded By  isaac_dz*******#
# -----------------------------------------#
#============ calculer votre moyene========#
#
#***** a Gift 4 all DZ student   **********#
############################################


use strict ;
use warnings ;



print "\t\t/////////////////////////////////////////////////\n";
print "\t\t_________________________________________________\n";
print "\t\t\t Scientifique Stream :D \n";
print "\t\t\t Coded By IsaaC Vs _DZ!\n";
print "\t\t\t calculez votre moyene
                                   \n";
print "\t\t\t my small script \n";
print "\t\t\t special great to all my friends \n";
print "\t\t_________________________________________________\n";
print "\n\n";
sleep (1);

print "\t\t\t votre moyenne de science .? :";
my $science = <>;
chomp $science;# fi 6
print "\n";
print "\t\t\t votre moyenne de math ....? :";
my $math = <>;
chomp $math; #fi 5
print "\n";

print "\t\t\t votre moyenne de physique ? :";

my $physique = <>;
chomp $physique;

my $a = $science * 6;
my $b = $physique * 5 ;
my $c = $math * 5 ;

my $d = $a + $b + $c ;
my $e = $d / 16 ;

print "\n\n\n";
print "\t\t votre moyenne de  matiere scientifique  est : $e ";
print "\n\n\n";


if ($e >= 10)
{

print "\n\t\t votre moyenne est superieur de 10  :)  happy for you ";

}

else {

print "\t\t nn c pas comme ça essayez de faire les effort .. :(";
}


print "\n\n\n\n";