uses crt; var fakt,i,n:integer; begin clrscr; writeln('sayı gir:');readln(n); fakt:=1; for i:=1 to n do fakt:=fakt*i; writeln('faktoriyel=',fakt); readln; end.