Составить блок схему и программу для вычисления факториала числа P=n!1*2*3 ... * n

program zz1;

var n, m:integer; / /задаем переменные целого типа

i:real;

function fact (x:integer) : integer; / / описываем функцию вычисления факториала

var v, p:integer;

begin

p:=1; / / задаем начальное значение для произведения

for v:=1 to x do

begin

p:=p*v; / / вычисляем произведение

end;

fact:=p;

end;

begin

write (' введите число n '); / / вводим с клавиатуры число

read (n);

i:=fact (n); / / вычисляем ответ с использованием функции вычисления факториала

write (' Ответ = ', i); / / выводим ответ

end.