uses
crt;
var
a,fak,i:
integer
;
begin
write
(
'sayı giriniz='
); readln(a);
fak:=
1
for
i:=
to
a
do
fak:=fak*i;
writeln
'girilen sayının faktoriyeli'
,fak);
readln;
end
.