Вывести на экран значение n!, n целое число, вводимое с

program zz1;
var
i,f,n:integer;
begin
write(введите число n);
read(n); //вводим число n
f:=1; //задаем изначальное значение факториала
for i:=1 to n do //перебираем числа от 1 до n
f:=f*i; //каждое число из цикла умножаем на факториал
write(f); //выводим ответ
end.