program four

var n,s,k: real;

begin
write('ВВедите n ');
readln(n);

s:=1; k:=1;

while k<n do
begin
    k:=k+1;
    s:=s*k;
end;

writeln('ответ ',s:0:1);
end.