print "Sayiyi gir:";
$fak=<STDIN>;
chop($fak);
$toplam=1;
for($i=$toplam; $i<=$fak; $i++){
$toplam = $toplam * $i;
}
print "Sonuc = $toplam ";
exit();