PROCEDURE Faktöriyel uses crt; var sonuc,i:integer; fakr,fakn,faknr,n,r:integer;