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

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

Пример:
n = 10
p = 3628800

Программа:
var
  i,n:integer;
  p:biginteger;
begin
  p := 1;
  readln(n);
  for i := 1 to n do
    p := p * i;
  writeln(p); 
end.

Блок-схема во вложении