{code}
program Factorial;

var
num, factorial, i: integer;

begin
write('Введите число для вычисления факториала: ');
readln(num);

factorial := 1;

for i := 1 to num do
begin
factorial := factorial * i;
end;

writeln('Факториал числа ', num, ' равен ', factorial);
end.
{/code}

Эта программа на языке Pascal принимает на вход число от пользователя и вычисляет его факториал с помощью цикла. Результат выводится на экран.