Konu: Faktöryel! Hesaplama

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.