Program Factorial2;
Var k, i, p: integer;
Begin
//  
repeat           //:
  write (' k (  12): '); 
  readln(k);     // k
until k<=12;     // k<=12
p:=1;  //  
for i:=1 to k do // i  1  k 
    p:=p*i;  //   
writeln (k, '!=', p); // 
End.
