Используя цикл с предусловием написать программу вычисления n! (эн факториал)

var i,n,f:integer; begin   readln(n);   i:=1;   f:=1;   while i<=n do   begin     f:=f*i;     i:=i+1;   end;   writeln(f);   end.