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

program maxfact (input,output);
    var i , sm : integer;
        a : array [1..3] of integer;
function fact (n : integer) : integer;
begin
   if (n=0) or (n=1) then fact:=1
     else fact:=fact(n-1)*n;
end;
   
begin
    read(i);
    sm:=fact(i);
    writeln(sm);
end.