function [y] = faktorial1 (n)
% y = faktorial1 (n)
%
% Funkce pocita faktorial nezaporneho celeho cisla.
% Vyuziva funkci "prod".

if ((nargin == 1) & (n >= 0) & (rem(n, 1) == 0))
	y = prod(1:n);
else 
	error('Nezadali jste nezaporne cele cislo!')
end

end
