Паскаль - вычисление факториала

Программа вычисления факториала

Program sfghgkk;
Uses Crt;
Var i,n,f:integer;
Begin
     f:=1;
     Writeln('программа для вычисления факториала числа n');
     Writeln ('введите n');
     Readln (n);
     For i:= 1 to n do 
     Begin
     f:=f*i;
     End;
     Writeln ('n!=',f);
Readln;