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