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.
