jie_chen_he.pas

本人 菜鸟+学生 ！ 老鸟指教的说 这些是自己写的一写PAS的程序

program n1;
     var n,s:integer;
     function f(n:integer):integer;
  begin
   if n=0 then f:=1
    else f:=n*f(n-1)
  end;
  begin
   write('n=');
   readln(n);
   writeln('n!=',f(n));
   readln
  end.