Program P60;
 { Calcularea factorialului }
var n, i, f : 0..MaxInt;
begin
 write('n='); readln(n);
 f:=1;
 for i:=1 to n do f:=f*i;
 writeln('n!=',f);
 readln;
end.