program Factorial;
var
n, i, fact: integer;
begin
fact := 1;
write('Enter a number: ');
readln(n);
for i := 1 to n do
begin
fact := fact * i;
end;
writeln('Factorial of ', n, ' is ', fact);
end.

В этой программе мы сначала вводим число n, для которого хотим найти факториал. Затем мы используем цикл от 1 до n и перемножаем все числа от 1 до n, чтобы найти факториал этого числа. И, наконец, выводим результат.