$N!$

Pas.0019. Напишите программу, которая по заданному натуральному $N$ выводит значение $N!$.

Решение.

program Factorial;

const

    N = 6;
    
var

    nFactirial : longint = 1;
    k : integer;

begin

  for k := 1 to N do
  begin
      nFactirial := nFactirial * k;
  end;
  
  write(N, '! = ', nFactirial, '.');
   
end.

Консоль.

6! = 720.