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

program zz1;var n, m:integer; //задаем переменные целого типаi:real;function fact(x:integer):integer; // описываем функцию вычисления факториалаvar v,p:integer;beginp:=1; // задаем начальное значение для произведенияfor v:=1 to x dobeginp:=p*v; // вычисляем произведениеend;fact:=p;end;begin write(\' введите число n \'); // вводим с клавиатуры числоread(n);i:=fact(n); // вычисляем ответ с использованием функции вычисления факториалаwrite(\' Ответ = \', i); // выводим ответend.