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

Python:n=input("N=")a=1for x in xrange(1, n+1):    a*=xprint aPascal: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.