Дано натуральное число n. вычислить n! = 1*2*3**n

program vld;

var

factorial: longint;

n, a: byte;

begin

write('n = '); readln(n);

factorial := 1;

for a:=2 to n do

factorial := factorial * a;

writeln('n! = ', factorial);

readln;

end.