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