program FACT(input,output); var n:integer; function fact(n:integer):longreal; var m:longreal; begin m:=1; while n>0 do begin m:=m*n; n:=n-1 end; fact:=m end; { fact } begin write(output,'$B3,>h7W;;$r$7$?$$?tCM$O$$$/$D!)(B($B$?$@$7(Bn>0) ? '); readln(input,n); write(n:5); writeln(fact(n):72) end.