var res, i, n: integer;
begin
write('Введите n ');
readln(n);
if n<0 then writeln('Неверно введено значение') else
if n=0 then writeln ('0! = 1');
if n>0 then
begin
res:=1;
for i:=1 to n do
res:=res*i;
writeln(n, '! = ', res);
end;
end.