program p;

var n,i,o: integer;

begin

o:=1;

writeln('Введите колчиство чисел:');

readln(n);

for i:=1 to n do o:=o*i;

writeln('Ответ:',o);

readln; end.