Найти произведение от 1до n( p=1*2**n) на языке паскаль

var
    factorial:
longint;
    n, i: byte;  
begin
write('n = '); readln(n);  
    factorial := 1;  
for i:=2 to n do factorial := factorial * i;  
writeln('n! = ', factorial);  
readln;
end.