Найти произведение от 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.

все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.