fac

program factorial;

var
    c,i,n:integer; //Сумма, текущее число и N факториала

begin
    //Фиксирование начальных значений
    c := 1;

    //Ввод числа N
    write('Введите N:'); readln(n);

    //Вычисление факториала
    for i := 1 to n do
        c := c*i;

    //Вывод факториала числа N
    writeln('Факториал числа ',n,' равен ',c);
    readln;
end.