program s;
var
    n:integer;
    
function Silnia(n:integer):LongInt;
    begin
     if n>=0 then
	begin
	    if n=0 then silnia:=1
	    else silnia:=n*silnia(n-1);
	end
     else
	begin
	    writeln('Nie mozna obliczyc silni dla liczby ujemnej');
	end;
    end;
    
begin
    writeln('Podaj liczbe, ktorej silnie obliczyc? ');
    readln(n);
    writeln(silnia(n));
end.