program fktryl; uses crt; var n,i:integer; a:real; begin clrscr; writeln('faktoriyeli alinacak sayiyi giriniz'); readln(n); a:=1; for i:=1 to n do a:= a * i ; writeln('girilen sayinin faktoriyeli ',a); readln; end. mehmet arslan kaeii@mynet.com