language: Pascal (gpc) (gpc 20070904)
date: 113 days 20 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12

var o, n: integer;  
function fact( x: integer ): integer;
  begin
    if x = 0 then fact:= 1
    else 
     fact:= x * fact( x - 1 )
  end;
begin  
 readln( n );
 o:= fact( n ); 
 writeln( o );
end.