function m=silnia(n)
if (n>0)
m=n*silnia(n-1);
else
m=1;
endif
endfunction
