program faktoriyel_hesabi;
uses crt;
var
n,f,i:longint;
Begin
clrscr;
f:=1;
gotoxy(10,10);
Write('Faktoriyel Hesabi Icin Sayi Giriniz(n!) : ');
readln(n);
clrscr;
for i:=1 to n do F:=f*i;
writeln('Girilen Sayi(n!)..:',n);
writeln('Sonuc.............:',f);
readln;
end.
ufuk
ahmetoglu.fb@gmail.com