Var s,n,i:integer; Begin writeln('Sayıyı Girin = ');readln(n); s:=1; for i:=1 to n do s:= s*i; writeln('Sonuç = ',s); readln; End.