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