Дано натуральное число n. составить программу (или блок схему алгоритма) вычисления произведения p = 1*2*3* *n

Python:
n=input("N=")
a=1
for x in xrange(1, n+1):
    a*=x
print a

Pascal:
program z1;
  var
    a, i: integer;
    b:longint;
  begin
    readln(a);
    b:=1;
    for i:=1 to a do
      b:=b*i;
    writeln('b=', b);
  end.