Напишите функцию, которая вычисляет факториал натурального числа n (pascalabc)

Function factorial(n:integer):integer;(или longint, если n большое)
   i,ch:integer;
begin
   ch:=1;
   for i:=1 to n do
     ch:=ch*i;
   factorial:=ch;
end;