{ Сост. прог. выч. факториала числа n. Пример: 5!=1*2*3*4*5 7!=1*2*3*4*5*6*7 }

var f,n,i : integer;
 begin
  clrscr;
  write('n=');readln(n);
  f:=1;
  for i:=1 to n do f:=f*i;
  write('f=',f);
  readln;
 end.