Не проходите! ! вычислите факториал 5! в паскале

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