Используя цикл с предусловием написать программу вычисления 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.