Написать программу для нахождения произведения от m до n.

Program one; var c:array [1..99999999] of integer; l,i,n,m:integer;  begin  readln(n,m);l:=1;for i:=n to m do beginl:=l*i;end;writeln(l); end.

работает проверял(если правильно понял то нужно найти 1*2*3*4*n)