Разработать блок схему и программу нахождения произведения натурального ряда чисел до числа n включительно

Блок-схема - в прилагаемом файле.Программа:var n,i:integer; p:real;beginwrite('n = '); readln(n);p:=1;for i:=1 to n do p:=p*i;writeln('p = ',p);end.Пример:n = 10p = 3628800