Program func_2;
Uses crt;
Var n,x:integer;
function fact(a:integer):integer;
var i,p:integer;
begin
p:=1;
for i:=1 to a do p:=p*I;
fact:=p;
end;
begin
write('введите  n:');
readln(n);
x:=fact(n);
writeln(n,'!=',x);
readln;
end.